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□ moniteur couleur . 


□ atmos . 



Le lecteur disquette conçu par ORIC FRANCE pour 
.990 F l'Atmos. 

□ lect.disq. MICRODISC.2490F 



• Tète d'impression 9 aiguilles 

• Vitesse d’impression de 100 eps en mode listing 
et 16 eps en NLQ 

• Niveau de bruit inférieur à 52 dB 

• Entrainement du papier par friction ou traction 

• Plusieurs styles de caractères: 

double largeur, gras, double frappe, compressé, italique, 
superscript, subscript, inverse et souligné 

• Marge et espacement ligne réglables par commandes 

logiciel. . _ 

□ imprimante SEIKOSHA SP 180 A 1.1590 F 



Le ’must" pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel ceOe tablette 
vous séduira par sa simplicité d’utilisation et la qualité 
“top niveau" des résultats obtenus, (ex. options : faire 
des points, traits.boites, cercles, texte, remplir, “zoom"....) 

. 990 F 


Ügraphiscop. 

INTERFACI 



Cette interface va cous permettre de transformer votre 
moniteur couleur en T.V. 

□ interface T.V.1490 F 



Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

□ magnétophone. 380 F 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres :195 F pour 4 titres : 220 F pour 5 titres : 250 F 


□ trace dump 

□ oric mind 

□ guerre des couleurs 

□ ciros 

□ fromage 

□ jogger 
□cal oric 


□ le lièvre et la tortue 

□ le monde végétal 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheron's rage 

□ centipède 


□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengoric 

□ finances 

□ copy écran (pour GP 100) 


□ calculus 

□ gestion bancaire 

□ budget familial 

□ caractor 

□ guerre des couleurs 


LOGICIELS CASSETTES 

Indiquez-nous en le souli g nant un (ou deux) titres de remplacement en cas de rupture de stock. 


□ tyrann.185 F 

□ vision.130 F 

□ xénon 1.105 F 

□ zorgons revenge .115F 

□ oric base (anglais) ....125 F 

□ orlhocrack vol. 1.175F 

□ orthocrack vol. 2.175 F 

□ orthocrack vol. 3.175 F 

□ outimatic 1.125 F 

□ ?feygro u nd 21 — -—95-f 

□ rabbit .105 F 

□ rat splat .105 F 

□ saga.150 F 

□ starter 30 . 135 F 

□ System' animation.140 F 

□ teknis .125 F 

□ terminus.125 F 

□ triathlon.155 F 

□ le fer d'amnukor.195 F 

□ le général . ...120 F 

□ nowotnick puuzzle.100 F 

□ lissage de courbes.125 F 

□ locus .105 F 

□assembl. symbol.145 F 

□ masterpaint.145 F 

□ probe3 .100F 


□ clavidact.125 F 

□ clovis 1 (Jeu d'échecs) 150 F 

□ ■eobre . HHrf- 

□ colorie. 95 F 

□ D bug (français).140 F 

□ 0.A.0.155 F 

□ dam buster.115F 

□ damae (jeu dames) .... 125 F 


□ ludico .140 F 

□ macadam bumper (flipper) 165 F 

□ méfies-toi de méphisto . 95 F 

□ métholoto.140 F 

□ m ic rogôo.. - H6 -F 


□ dedal 

□ 

□ dialogue. 

□ digger . 

□ dit..? d’ac! (sc. nat. 5e) 

□ dit..? d'ac! (sys. auteur) 

□ don juan . 

□ dont press letter Q 

□ dossier G . 

□ draughts. 

□ élysées . 

P 3 0 fang p r 


□ fH- . m- 


110 F 
F 

125 F 
100 F 
95 F 
95 F 
150 F 
120 F 
145 F 
100 F 
145 F 
44Ô-F- 


• G mission tfeHn(stm vo ty- 

□ montségur. 

□ moria . 

□ mots croisés . 

□ musirama . 

□ nessy 

□ 


-m+ 

145 F 
115 F 
120F 
140 F 
95 F 


formule)-. 

galaxian . 

. 115F 

ghost gobbler. 

gubbie. 

insect insanity. 

... 105 F 
115 F 
... 100F 
rrrr 140 F 


□ annuaire . 

□ assirnil (anglais . 

□ basic étendu ... 

□ brique à brac ... 

□ business man . 


-m -f 

. 125 F 
.275 F 
. 135 F 
110 F 
. 145 F 


□ karaté . 

□ l'aigle d'or . 

□ la cité de cristal 

□ la flûte inca 

□ backgammon ... 
Geneouotef ■ -—— 


□ catégorie 

□ Cheops .r-r.-r. .. 

□ hades (assembl.). 


110 F 
. 180 F 
. 150 F 
. 125 F 
. 125 F 
-M+ 


. 110 F 
. 140 F 
.175F 


□ oric et son micro procès 

□ program pour or i c 

□ montrel ré f T1 ... 

G manue l réf. T2 . ■ 


D jeux en boa i c o 


95 F 
- 86 -f 


-m-f- 

■m-f- 


LIVRES 

□ communi. avec oric . 

□ interfaces pour oric 


. 145 F 
59 F 
—ffrf- 


□ Toric à nu .151F 

□ nouveaux jeux atmos .. 88 F 

□ jeux graph. atmos. 95 F 


□ lot n° 1 : triathlon 

macad. bumper (flip.) 
terminus (aventure) 


□lot n°2 : karaté 
hadès 

terminus(aventure) 


□ T DOS et ses fichiers ..185F □ mieux program. sur oric 110F 

□ apprenez élect. sur oric 110F 

PROMOTION 


-44S-r 

250 F 

□ lot n° 3 : ludico 

métholoto 

DAO. 

325 F 

i?frF 

260 F 

□ lot n° 4 : clovis 1 (échecs) 
musirama 
outimatic 1 

-4+5-T 

315 F 


pour l'achat de 2 lots: 5 % de remise 
pour l'achat de 4 lots : 10 % de remise 


Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 

rampaanp » 

□ synthétiseur vocal . 360 F 


J ■ 


Rallonge Péritel 
Ne soyez plus collé à l'écran, (prise OIN à 6 broches). 
□ rallonge péritel.95 F 


□joystick switch-joy .185 F 



Interface tous jeux 
Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 

□ interface joystick tous jeux. 365 F 


□ joystick compétition 
PR05000 .... 17C 



□ bloc alim. ORIC.180F 

□ alim. 12Vpourpéritel. 75F 

□ rallonge de bus 1 slot.140 F 

Cassettes vierges C20 

□ les 5. 45 F 

□ les 10. 80 F 


□ câble imprimante.160 F 

□ stylosMCP40 . 75 F 

□ rouleauxpapierMCP40(par4). 75F 

□ disquette 3". 31F 

□ disquette 3" (par 10). 275 F 



OFFRE SPECIALE ! 

Nous reprenons 500 F votre ORIC 1 ou ATMOS* pour 
l'achat d'un ATARI 520 STF avec moniteur monochrome 


Que vous recherchiez votre premier micro ou 
que vous avez envie de franchir une étape décrave 
après avoir débuté avec un microordinateur 8 bits, 
chocsis «2 \ Atari 520 STF. C'est une valeur sûre 
FJu ordinateur de Tannée aux USA, devenu 
rapidement le best-seller (k* la micro en Alkmagne. 
déjà plébiscité en France, \Atari 520 STFcH 
l'ordinateur le plus innovateur du marché. 

Celui dont vous tirerez le maximum de plaisir. 

Avec \Atari 520 STF, vous allez de 
révélation en révélation. 

Puissance formidable avec une U.C de 520 Ko. 

Facilité d’utibsabon avec la souris et le système 
d'exploitation GEM. 


Confort d’utilisation avec le mulüfenètrage. 
Performances graphiques exceptionnelles, 
Richesse d'une palette de 512 couleurs. 

Capacités sonores éclatantes et interface MIDL 
Bien d'autres révélations vous attendent aux 
commandes de votre ordinateur. 

L Atari 520 STF, c'est le graphisme dans 
toute sa finesse, la couleur dans toute sa splendeur, 
la musique dans tout son édaL 

Créativité ou récréation, \Atari 520 STF, 
c'est la micro plaisir dans toutes scs dimensions 


MM PORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l'ordinateur. 
□ ATARI 520STF+moniteurmonochrome: 4 490F 500F . 3990F 

COMMENT COMMANDER : Je possède noRIC I n ATMOS 

Cocher le(s) article(s) désiré(s) ou laitesen une liste sur une feuille à part. Faites le total -F frais de port (20 F pour achats inférieursâ5C0F.4t)Fde500â 1000 F, 60 F pourloutachat supérieur à 1000F-80F pour 
loul achat supérieur à 2000 F). 

NOM __- PRENOM :_ TEL :- 

ADRESSE : ____CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat P contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau ;i«l = l»IL=Erl 





























































































































































L orsque nous avons lancé l'appel à l'abonnement, 
quelques lecteurs répondirent présents. 

D’autres sceptiques préférèrent sans doute at¬ 
tendre et voir venir. 

D'autres enfin n'hésitèrent pas à crier au chantage, es¬ 
timant que nous tentions de faire pression.Voilà qui est 
mal nous connaître. C'est un procédé que nous n'avons jamais employé. 

Tout a une fin dit-on ! 

C'est le cas de THEORIC. 

Ce numéro est le dernier. L'équipe de rédaction vous remercie tous pour votre fidélité, 
vos critiques constructives, vos encouragements et vos articles. 

Peut-être parlerons-nous encore de temps à autre des machines d'ORIC. Ce sera au travers 
des pages ou des numéros hors-série d'Arcades. 

Bonne lecture à tous et bonnes fêtes de fin d'année ! S. F4UREZ Directeur de Publication 




ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

SERVEUR: 78.28.45.23 

SPÉCIALISTE ORIC 

Démonstration Telestrat 
on permanence 

Composants connectlquo 
et cables. 

_ Compatibles IBM. _ 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC T 



LOGICIELS FREEWAR 

POUR 


TELESTRAT 


A PARTIR DE 50 F LA 
DISQUETTE .CATALOGUE GRATUIT 
SUR DEMANDE : 

Association AEDIT 
19 Boulevard RAIMBALDI 
06000 NICE 

Tel : 93 85 53 36 ou 
par minitel 
3615+CLUBA«TIC ,tapez 
DD au sommaire 
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COURRIER 



rrêter une revue est tou¬ 
jours un peu triste. Nous 
avons éprouvé beaucoup 
de plaisir à vous taire partager notre 
passion pour l'OFIIC, depuis ce jour 
d'avril 1984 où vous avez décou¬ 
vert le premier numéro de Théorie 
dans les kiosques. Depuis, nous 
avons parcouru ensemble un long 
chemin et, si l'ORIC n'est plus dans 
le vent, il faut toutefois reconnaître 
qu'il fut pour nous tous, une excel¬ 
lente machine d'initiation. 

Nous ne saurions parler du succès 
de Théorie sans y associer les nom¬ 
breux auteurs, qui ont planché de 
longues nuits sur des programmes 
et articles publiés pour le plus 
grand plaisir des lecteurs. A tous, 
un grand merci. 

Quant aux plus fidèles d'entre- 
vous, les abonnés de longue date, 
merci d'avoir fait ce bout de chemin 
en notre compagnie. Un dernier 
mot, enfin, pour remercier tous 
ceux qui ont répondu " présent" à 
l'édito du n° 34, en s'abonnant. 
Hélas, beaucoup ont voulu atten¬ 
dre le dernier moment... 

Nous publions ici. quelques extraits 
de lettres parmi les plus significa¬ 
tives. Certaines mettent également 
en cause O rie International, qui n'a 
pas su adapter ses produits à la re¬ 
cherche du marché. Force est de 
constater que, en France, on a tou¬ 
jours un train de retard... Nos ingé¬ 
nieurs sauraient développer des 
produits à succès tels qu'un CPC 
6128 (AMSTRAD) ou un 520 ST 
(ATARI). Le plus difficile reste de le 
commercialiser rapidement, avec 
un réseau de revendeurs efficace, 
et à un prix comparable à celui de la 
concurrence. 


Jacques BARBEAU 

L'édito du n°34 m'a profondément ému 
car posséder un Oric sans Théorie est 


un non-sens. Je ne puis me faire à 
l'idée que Théorie puisse cesser d'exis¬ 
ter, aussi je souscris un abonnement 
d'un an, en souhaitant que nous soyons 
assez nombreux à effectuer ce geste. 


Philippe CHERON 

J'ai été très content de lire l'éditorial du 
n° 36. Sincèrement, je resterai votre 
abonné en espérant que votre revue 
continuera de paraître... 


Christophe GAYET 

C'est toujours avec plaisir que je fis 
Théorie et je serais navré que celte re¬ 
vue disparaisse. Il vous faut 4000 abon¬ 
nés avant le 31 décembre 1987, mais 
serait-il possible de savoir combien 
nous sommes d'abonnés ; il nous serait 
plus facile de dire : "Nous sommes X 
abonnés, il en faut 4000, il faut donc 
que chaque abonné réussisse à 
convaincre Y personnes à s’abonner. 


C. BAURET 

Les procédés commerciaux d'Oric Inter¬ 
national me déconcertent et je voulais 
vous en faire part. 

Désireux d'acquérir un Microdisc es¬ 
clave pour compléter un équipement 
Atmos qui date de début 84, j'ai deman¬ 
dé par courrier certaines précisions sur 
la compatibilité des nouveaux modèles 
avec l'ancien Microdisc en ma posses¬ 
sion, sur la présence d'une simple ou 
double tête, etc, tous détails justifiés 
par le prix de l'appareil et la vente par 
correspondance. 

Or, à la place de la réponse attendue 
(qui n'aurait coûté qu'un affranchisse¬ 
ment minime), je viens de recevoir un 
catalogue (frais de port plus élevés) qui 
ne m'apporte aucun renseignement. 
Bien plus, il me pose des questions 
nouvelles car le lecteur esclave y est af¬ 
fiché à 1790 F, alors qu'il est à 1490 
francs dans toutes les publicités (cf 
Théorie) ! 

Conclusions : comme je ne veux pas 
perdre mon temps en échange de cour¬ 
rier, j'abandonne mon projet d'achat 
pour un matériel qui finalement ne 
m'est pas indispensable. 



Je vous prie de communiquer à Oric 
International qu'un tel comportement 
n'est pas fait pour conforter l'image de 
T Atmos, appareil déjà en perte de vites¬ 
se. 

Amicalement. Un abonné. 


Jean-Luc SICLER 

Je réponds aujourd'hui à l'appel que 
vous avez lancé pour que vive Théorie, 
j'espère que nous serons nombreux et 
que vous ne serez pas contraint d'en ve¬ 
nir aux extrémités dont vous nous me¬ 
nacez... 

Il est déplorable que les errements de la 
mode frappent aussi dans l'univers de la 
micro-informatique, rendant obsolète 
un excellent matériel dont le seul tort 
est d'avoir dans les meilleurs cas deux 
ou trois ans d'existence. 

Il parait que trois micros sur cinq ter¬ 
minent leur carrière aufond d'un placard 
dans Tannée qui subit leur achat, par 
manque d'idées réalisables (inadéqua¬ 
tion matériel! compétence). J... 

S'il y avait une logique et une justice 
dans le monde commercial, si chaque 
utilisateur connaissait ses limites intel¬ 
lectuelles au lieu de se surestimer, c'est 
40000 abonnés et non 4000 que vous 
pourriez envisager. Le micro-ordinateur 
dans le bureau est dans le droit fil du 
jeu d'échecs en marbre dans le salon, 
c'est décoratif, ça pose socialement et 
intellectuellement et il n'est nul besoin 
d'en connaître le mode d'emploi. 

Quant à vous, vous pourrez toujours 
vous transformer en serveur sur Téles- 
trat avec possibilité de téléchargement 
des programmes que nous ne trouve¬ 
rons plus nulle part sur papier. 

Quoi qu'il en soit, je souhaite longue 
vie à Théorie. 

RECTIFICATIF 

Le prix de l'ouvrage "A la décou¬ 
verte du Telestrat" de Patrice 
Guerrin a finalement été fixé à 148 
francs. Il ne sera effectivement 
disponible que fin novembre, nous 
assure-t-on chez Oric. Un mois de 
retard seulement, ils s'améliorent 
chez Oric ! Ce livre constitue tou¬ 
jours une bonne affaire, si on en ju¬ 
ge par la préversion lue pour vous" 
le mois dernier. 
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VITRINE 

OU 

LOGICIEL 



eux nouveautés ORIC 
qui nous arrivent 
en dernière minute. 


décidément, Bleu Ciel Informatique 
restera le dernier bastion des 
éditeurs qui ont cm, jusqu'au bout, 
aux possibilités de IORIC. 

THEORIC cesse de paraître : 
désormais, c'est dans "ARCADES" 
(mensuel en vente dans tous les 
kiosques) que nous présenterons les 
bancs d'essais des quelques rares 
nouveautés qui alimentent encore les 
mémoires de nos pauvres ORIC... 



PROTEGEZ 
VOS REVUES! 

BON DE COMMANDE CLASSEUR (port inclus) 


NOM _Prénom - 


Adresse 


Code postal -Ville 


Je désire recevoir 


Classeurs) CPC : 60 F 
j Classeurs) MEGAHERTZ : 80 F 


Signature 


Ci-joint chèque de _ F au nom des Editions SORACOM - La Haie de Pan -35170 BRUZ 


[ J Classeur(s) THEORIC : 80 F 

[ i Classeurs) AM STAR : 60 F 

1 1 Classeurs) PCompatibles Magazine : 60 F 
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TRUCS ET ASTUCES 



Patrice GUERRIN 


Voici un petit programme d'application de l’ex¬ 
tension horloge temps réel. Il affiche l'heure, 
les minutes et les secondes à chaque allumage 
du Telestrat, et recopie ces valeurs dans les re¬ 
gistres de l'horloge du Telestrat. Une fois le 
programme. Une fois le programme exécuté, il 
s'auto-détruit automatiquement (NEW). 


10 CC=PEEK<#360) 

20 TIME PEEK(#361),PEEK(#362) 

30 POKE #211,PEEK(#363) 

40 CLOCKSET #BB9E 
50 NEW# 


Sauvez ce programme par : 
SAVE"BONJOUR.COM”,AUTO 


L’instruction TIME (mise à l'heure de l'horloge) n'ac¬ 
cepte que les heures et les minutes comme para¬ 
mètres. Quand aux secondes, elles sont automa¬ 
tiquement remises à 0 lors de l’exécution de TIME 
heures, minutes. Ceci peut être très embêtant, 
puisque la mise à 0 des secondes provoque une 
perte de temps variant de 0 à 59 secondes sur 
l'heure réelle. 

Pour pouvoir mettre à l’heure les secondes, il faut 
agir directement dans la mémoire du TELESTRAT, 
en #211, qui-est le registre de décomptage des se¬ 
condes. 

Ainsi, 11 heures, 27 minutes et 25 secondes se tra¬ 
duira par : 

10 TIME 11,27 Heures et minutes 
20 POKE #211,25' Secondes 

Attention toutefois à ne jamais initialiser les se¬ 
condes avant les heures et les minutes, puisque 
l’instruction TIME remet automatiquement les se¬ 
condes à 0. 


NUMEROTATION 
AVEC LE MINITEL 10 


M ea culpa, une erreur s’est glis¬ 
sée dans le programme de 
numérotation automatique avec 
le minitel 10. EOT est le code ASCII N° 
4 et non N° 3. Les lecteurs perspicaces 
et disposant d’une liste des codes 


ASCII qui auront fait le rapprochement 
après avoir cherché un petit peu et 
avoir tapé le reste du programme 
correctement auront rectifié 
d’eux- mêmes. 

Voici le listing exact : 


10 OPCH 1,15 

15 SOH$=CHR$(l):STX$=CHR$(2):ETX$=CHR$(3):EOT$=CHR$(4) 
LF$=CHR$(10):DLE$=CHR$(16):ESC$=CHR$(27) 

20 INPUT NUMEROS 

60 PRINT ]l;ESC$";a"CHR$(#5C)CHR$(#53)ESC$' 

100 PRINT ]1;LF$ESC$"@"DLE$SOH$"l"DLE$EOT$" 

110 PRINT ]1;NUMERO$DLE$ETX$; 

150 PRINT ] 1;ESC$" ;R !";■ 


9"CHR$(#59) 
"DLE$STX$; 



F. BROCHE 


UNE NOUVELLE 
ENTREE-SORTIE 

L e Telestrat dispose d'un système 
de gestion des entrées-sorties 
très original et très pratique, j'ai eu 
des prix de gros pour les fleurs aujour¬ 
d'hui, très bonne affaire. 


1 


100 ' 

110 ' configuration de la sortie 20 
120 • comme une sortie "mémoire" 

130 1 

140 PT EQU $FE ’ pointeur d'écriture > 
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150 

160 

170 

180 

190 

200 

210 

211 

212 

213 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

471 
480 
490 
500 
510 
520 


ORG $B400 

I 

JMP INIUS3 

BASE BYT 0,0 ' adresse pour initialisation 

I 

’ initialiser l'adresse de traitement 
’ de l'E/S 20 

I 

INIUS3 LDA #<US3 

LDY #>US3 
STA $02E6 
STY $02E7 
RTS 

I 

' traiter la sortie 20 

US3 BPL WRUS3 ' aller traiter écriture 

BCC OPUS3 ' aller ouvrir le fichier 

' traiter fermeture du fichier 

I 

LDA #255 ' envoyer un #FF pour marquer la fin 

> 

' écrire un caractère en mémoire 

WRUS3 LDY #00 

STA (PT),Y 
INC PT 
BNE OUTUS3 
INC PT+1 
RTS 

I 

' ouvrir l'E/S c’est à dire 
1 initialiser le pointeur 

I 

OPUS3 LDA BASE 

LDY BASE+1 
STA PT 
STY PT+1 
OUTUS3 RTS# 






100 US3.BIN 

110 DOKE #B403,#8007 'adresse de bas d'une page vidéotex 
120 OPCH 1,20 

130 PRINT ] 1;CHR$ (27) " :''CHR$ (#69) "C"; ’ mode rouleau 

140 PRINY ]1;@24,01; ' se placer en bas de l'écran 

150 COUNT 24 

160 PRINT ]1;CHR$(10)CHR$(1); ’ scroller une ligne 
170 UNCOUNT 

180 ^RINT ]1;CHR$(0); 'indiquer fin de la page 
190 CLCH 1,20 

200 SAVE "SCROLL .VDT",A# 8000, EDEEK(#FE)# 


Bref, il est possible de rajouter facile¬ 
ment des entrées-sorties, et de les gé¬ 
rer sous BASIC ou autres en les affec¬ 
tant à des canaux. La méthode de créa¬ 
tion d'une E/S est décrite dans le ma¬ 
nuel Développeur, nous allons voir ici 
un exemple pratique. 

La routine toute simple que je vais dé¬ 
crire permet de créer une sortie "mémoi¬ 
re", c'est-à-dire que tous les carac¬ 
tères qui lui seront envoyés vont être 
stockés dans une zone mémoire. Ceci 
permet beaucoup d'applications, par 
exemple débugger un programme d'im¬ 
pression ou créer à coups de PRINTs 
une page vidéotex par exemple. 

Le programme est donné dans la syn¬ 
taxe TELE-ASS mais peut très bien 
être entré avec un assembleur du style 
STRATMON. (Listing 1) 

Une fois le programme entré, il faut le 
sauver en AUTO pour qu'il initialise 
l'adresse de l'E/S. 

Pour l'utiliser, il suffit de le charger une 
fois et de gérer la sortie 20. Il faut bien 
entendu faire attention à ne pas écrire 
en #B400 pour ne pas écraser la rou¬ 
tine. Laquelle routine peut bien entendu 
être placée ailleurs. 

Voici un petit exemple, qui permet de 
faire des scrolls sur l'écran du minitel. 
La page est ensuite stockée sous le 
nom de SCROLL.VDT et peut être ex¬ 
ploitée à tout moment. (Listing 2) 

Le CHR$(1) est un caractère de bour¬ 
rage et n'est là que pour ralentir le 
scroll. Il ne faut pas utiliser le carcatère 
0 comme caractère de bourrage car 
c'est l'indicateur de fin de page. 



SERVEUR 

MINITEL 

N'oubliez pas 
36,15 code MHZ 


La B A L permet un diologue direct avec 
la rédoction. 

Les petite» annonces ouvrent la porte aux 
bonnes affaires I 
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STRUCTURE 

DES 

FICHIERS 

TELEMATIC 


Fabrice BROCHE 


-I - 

LES PAGES 
VIDEOTEX 
xxxxxxx.VDT 

Une page vidéotex au format Telestrat 
est en fait composée de deux parties. 

- La première contient des informa¬ 
tions sur l'état de la page (taille, efface¬ 
ment...), et ne sert qu'à l'éditeur de pa¬ 
ge du Telestrat. 

- La deuxième contient la page elle- 


A - L'entête 

Voici la structure des 7 octets qui cons¬ 
tituent l'entête. L'éditeur vidéotex se 
fie à ces octets pour effectuer le co¬ 
dage de la page. 

CODDX 8000 
début de la fenêtre, X 
CODFX 8001 
fin de la fenêtre, X 
CODDY 8002 
début de la fenêtre, Y 
CODFY 8003 
fin de la fenêtre, Y 


no F 

□ 


S0 fiACQH 


Nous allons analyser la structure des fichier qu'est capable de 
générer la cartouche Telemaüc. Nous allons brièvement revenir 
sur la structure des fichiers .VDT, déjà décrite dans le Manuel 
Telematic, et surtout expliquer la structure des fichiers arbores¬ 
cence, les fichiers .SRV. 


Nom 

Prénom 

Adresse 


même, au format vidéotex, terminée 
par un 0. Seule cette dernière partie est 
nécessaire pour que la page soit exploi¬ 
tée par un serveur. 

La page est stockée à adresse fixe en 
mémoire : 


CODCX 8004 
position du curseur, X 
CODCY 8005 
position du curseur, Y 
FLGCOD 8006 
status de la page 


b7 


Ci joint, un chèque de F à l’ordre des 

Editions SORACOM, La Haie de Pan, 35170 
BRUZ 


8000-8006 entête 

8007-xxxx codes vidéotex, termi¬ 

nés par un code 0 (nul). 


effacement de la page (à 1) 
b6 

affichage du curseur (à 1 ) 
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bO-b5 

réservé (utilisé par le Telestrat II) 

8007 

début des codes vidéotex, terminés 
par un 0. 

Cette partie n'apporte que peu de com¬ 
mentaire, sinon qu'une erreur s'est glis¬ 
sée dans le manuel Telematic et que 
les adresses qui y sont données sont 
fausses ! 

B - Les codes vidéotex 

A partir de #8007 est stockée la traduc¬ 
tion de la page en codes vidéotex. Le 
Telestrat n'utilise qu'une partie des pos¬ 
sibilités des codes vidéotex, voici la 
liste des caractères utilisés pour coder 
une page vidéotex : 


B - Structure d'une page 

adresse relative rôle 


nom 


NUL 

FF 

50 

51 
DC1 
REP 
DC4 
SS2 
ESC 
US 


valeur rôle 
hexa 

00 fin de la page 

OC effacement de l'écran 
0E passage en G1 
0F passage en GO 

11 curseur ON 

12 xx répétition de caractère 

14 curseur OFF 

19 accès ponctuel à G2 

IB xx attributs de visualisation 
IFyyxx accès direct à l'écran 
20-7F GO 
20-5F G1 
20-7F G2 


Le codage s'effectue de gauche à droi¬ 
te et de haut en bas. Les déplacements 
sont effectués avec US yy xx. 

Une page vidéotex peu parfaitement 
être créée avec autre chose qu'un Te¬ 
lestrat, et pourtant être gérée correcte¬ 
ment par l'arborescence. Il suffit que la 
page ait un nom du type xxxxxxx. 
VDT et que les codes vidéotex com¬ 
mencent en #8007 et se terminent par 
un zéro. 

Grâce au programme "US3RAM" don¬ 
né dans les trucs et astuces, il est fa¬ 
cile de générer des pages vidéotex, 
voir l'exemple qui est donné avec ce 
programme. 


00 

01-07 

08-09 

OA-OB 

0C 


-II- 

LES ARBORESCENCES 
xxxxxxx.SRV 


A - Structure 
de l'arborescence 

L'arborescence est constituée d'une 
suite de pages repérées par leur numé¬ 
ro (de 0 à ...), reliées par leur longueur 
qui permet de passer de l'une à l'autre. 
La première page est la page N° 0. 
Lorsqu’une page est supprimée, sa lon¬ 
gueur est simplement réduite à 1 pour 
ne pas avoir à recalculer toutes les réfé¬ 
rences. 


L'arborescence est stockée à partir de 
#4000, et monte au maximum jusqu’à 
#7FFE, ce qui donne un maximum 
théorique de 1023 pages. 

Chaque page occupe 16 octets, ou 16 
plus le double du nombre de choix pour 
les sommaires. 


OD 


0E 


0F 


10-.. 


longueur de la page 
nom de la page en ASCII 
numéro de la page suivante 
(SUITE) 

numéro de la page précédente 
(RETOUR) 
octet de status I 
b7 sommaire 

b6 pas de suite (fin de 

branche ou sommaire) 
b5 pas de précédente (pre¬ 

mière page) 

b4 page temporisée 

b3 page langage 

b2 journal cyclique (pre¬ 

mière page) 

bl page Fantôme (pas de 

suite) 
bO BAL 

octet de status II 
si sommaire : nombre 
de choix 

si temporisée : tempo¬ 
risation en secondes 
inutilisé (prévu pour 
GUIDE) 

b6-b7 numéro du lecteur 
b0-b5 inutilisé (prévu pour 
GUIDE) 

Sommaire : numéro des 
pages choix 


Comme vous pouvez le constater, la 
structure d'une page est très simple, et 
peut être facilement modifiée avec des 
PEEK ou POKE adéquats. 

Il est bien entendu possible de créer un 
générateur d'arborescence, ou d'exploi¬ 
ter une arborescence pour faire autre 
chose qu'un serveur. Dans ce cas, il 
est conseillé d'écrire les deux routines 
cruciales, à savoir : recherche de 
l'adresse d'une page d’après son nom 
ou son numéro, en assembleur ; le 
temps de recherche de la page numéro 
900 en BASIC pouvant s'avérer rédhi¬ 
bitoire ! 

Voilà, j'ai fait le tour des fichiers vidéo¬ 
tex et arborescences. J'espère que 
vous pourrez en tirer un meilleur parti ! 
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SAUVEGARDE 

AUTOMATIQUE 


Michel ZUPAN 


S 


avez-vous qu’il existe encore aujourd'hui des logi¬ 
ciels qui se prétendent professionnels sans même 
proposer des sauvegardes automatiques de vos don¬ 
nées à intervalles programmés ? Bonjour l'angoisse des 
plantages ou coupures sur votre traitement de texte ou 
votre tableur ! Et pourtant c'est si simple en FORTH ! 


DIX TACHES 
SIMULTANEES ! 

Toute petite machine d'initiation qu’il 
est, l'ORIC n'a pas à faire de comple¬ 
xes et pour tout dire le projet de cet ar¬ 
ticle est bien plus ambitieux que la seu¬ 
le installation d'un système de sauve¬ 
garde automatique de votre mémoire de 
travail. Le FORTH est en effet réputé 
pour travailler avec aisance dans un 
environnement muti-tâche. 

Nous allons tout d'abord définir un petit 
MULTITASKER capable de gérer l'exé¬ 
cution de dix tâches différentes. Avec 
dix tâches, on devrait pouvoir voir ve¬ 
nir, non ? Assurer les sauvegardes 
automatiques mais aussi afficher un 
bandeau d'aide, partager l'écran, tenir 
un agenda, émettre un fond musical 
d'ambiance, prévenir qu'il est minuit 
docteur, imprimer un fichier, détecter 
un appel au minitel et régler la tempéra¬ 
ture de la pièce. Il y a vraiment de quoi 
faire avant de bazarder votre ORIC... 
Vous serez surpris de voir combien il 
est simple de faire du multi-tâche en 
FORTH. C'est même beaucoup plus 
facile que de détourner les interrup¬ 
tions du microprocesseur, procédé sou¬ 


vent utilisé dans ces colonnes mais qui 
devient rapidement intolérable au-delà 
d'un nombre restreint de tâches. 

Le principe est enfantin : les tâches, de 
simples mots Forth à exécuter, sont 
placées dans une file d'attente. Un 
superviseur se charge de les lancer à 
tour de rôle quand la tâche précédente 
est achevée ou qu'elle laisse du temps 
libre. Le temps libre, on le trouve très 
facilement lors des opérations d'entrée- 
sortie qui gaspillent souvent un temps 
énorme par rapport au temps machine. 
Avantage supplémentaire sur la tech¬ 
nique des interruptions, les temps de 
calcul (une compilation par exemple) ne 
sont pas allongés. 

Quand les tâches sont complexes, il 
faut bien sûr veiller à ce qu'aucune 
n'empiète sur une autre. Cette règle 
oblige parfois à séparer les piles, les 
variables internes ou les zones de mé¬ 
moire allouées. Les nouveaux micropro¬ 
cesseurs et systèmes d'exploitation 
sont aujourd'hui conçus pour faciliter 
les applications multi-tâches voire mê¬ 
me l'étape suivante des multi-utilisa¬ 
teurs. 

Dans notre système, nous choisirons, 
la simplicité en admettant que les res¬ 
sources sont partagées entre toutes 


les tâches. C'est ainsi que nous pren¬ 
drons pour règle de n’avoir que des 
tâches neutres vis-à-vis de la pile. 


LE MULTITASKER 

Le programme est écrit en FIG pour la 
cartouche TELEFORTH du TELES- 
TRAT. Vous trouverez les explications 
pour une transposition facile sur ORIC- 
1 ou ATMOS. L'écriture en F83 est en¬ 
core plus simple. Si vous ne disposez 
pas d'un lecteur de disquettes, je vous 
conseille de trouver une autre applica¬ 
tion du Multitasker : les sauvegardes 
automatiques sur cassettes, ce n'est 
pas microbolant... 

La gestion de ce petit multitasker est 
tellement facile que j'en ai presque 
honte : 

ACTIVE nom-de-tâche ajoute une tâ¬ 
che à la liste. 

DESACTIVE nom-de-tâche l'en sup¬ 
prime. 

• TACHES affiche la liste des tâches 
activées. 

MULT1 autorise ie travail en multi-tà- 
che. 

MONO revient au système mono-tâ¬ 
che habituel. 

TASKER est le superviseur qui lance 
les tâches Toujours pour simplifier, ce 
mot n'est invoqué que lors des requê¬ 
tes d'une touche au clavier. Pour ce 
faire, on redéfinit le mot fondamental 
KEY. Celui-ci est vectorisé sur TELE¬ 
FORTH comme dans les versions les 
plus modernes du langage. Pour les 
vieux FIG, il faut "patcher" la nouvelle 
définition dans celle de EXPECT à la 
place de KEY. 

SAUVE QUI PEUT 

Les sauvegardes automatiques para¬ 
métrables ne sont donc qu'une appli¬ 
cation du MULTITASKER. 

Prenons un timer de la machine. Sur 
TELESTRAT le timer utilisateur en se¬ 
condes placé en #42 fera notre af¬ 
faire : il est indépendant de l'horloge 
soft. Sur ORIC-1 et ATMOS, nous pren¬ 
drons le #276 qui lui décompte les cen¬ 
tièmes de seconde. 

Au-delà d'un délai prévu entre deux 
sauvegardes, il suffit de ré-initialiser le 
timer et de lancer la procédure habi¬ 
tuelle de sauvegarde par SAVE-BUF- 
FERS. Rappelons que ce mot forth est 
déjà très intelligent puisqu'il ne sauve 
que ce qui a été modifié. 

Et voilà comment un truc de "pro" de¬ 
vient l'enfance de l'art pour un forthien : 
nous allons encore faire des jaloux... 


SÇftN« i 


0> 

( i> 
< 2 ) 

( 35 
C 4) 

< 5) 

< 6) 

< 7) 

< 8) 
< 9) 
( 10 ) 
( 11 ) 
(12) 

( 13 ) 

(14) 

( 15 ) 


\ Sauvegarde automatique par MULTITASKER 
N pour cartouche TELEFORTH du TELESTRAT 


1Ssep87 HZ 


10 CONSTANT «TACHES 


\ nombre maximal de tâches 


0 VARIABLE TACHES HTACHES 2* ALLOT \ liste des tâches 
TACHES «TACHES 1+ 2* ERASE N mise à zéro de la liste 

: .TACHES < - ) \ affiche la liste des tâches 

CR .* taches actives :* 

«TACHES 0 DO I 2« TACHES t 0 DUP 

IF CR T 1+ 2 .R 2 SPACES 2+ < cfa-pfa > NFA 1D. 

THEN LOOP CR ; 

--> 
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SCRN» : 

< 0 ) \ 

( n 

< 23 : 

( 3) 


4) 

5) 

6 ) 
73 


< 83 
( 93 
<103 
<113 
<123 
<133 
<143 
<153 


multltasker -2- 

TASKER <-3 

«TACHES 0 

DO I 2* TACHES 4 @ 
IF EXECUTE 
ELSE LEAVE THEN 
LOOP ; 


DUP 


15sep87 MZ 

\ exécuteur nult1-tâche : 

\ lance en séquence toutes 
\ les tâches de la liste 
\ quand le torth peut taire 
\ une pause. 


: TACHE? < cfa — tlag 3 
0 «TACHES 0 

DO DROP TACHES I 2* + 2DUP @ = 
IF SWAP DROP 1 LEAVE 
ELSE DROP 0 THEN 
LOOP ; 

--> 


\ cherche une tâche 


SCRN# 3 

< 03 \ multltasker -3- 15sep87 HZ 

UV . 

<23': ACTIVE < <tache> - 3 \ active une nouvelle tache 

< 3» [COMPILE! • CFA 0 TACHE? 

«'-43' IF ! ELSE CR .* trop de taches * ABORT IHLN ; 


< 5! 

< 63 : DESACTIVE < <tache> — 3 


\ supprime une tâche 


< 73 [COMPILE! 1 CFA TACHE? 0= 

<83 IF CR .* tache Inconnue * ABORT THEN 

< 93 DUP 24 SWAP TACHES 

<103 «TACHES 14 2* 4 3 P1CK - CMOVE ; 

<113 

<123 —> 

<133 

<143 

<153 


SfPNü 4 

< 03 \ multltasker 4 


< 33 

< 4> 


; TASKEY <-c 3 

BEGIN IASKER ?TERMINAL 
UNT1L I IOS 1 CKEY : 


53 

63 

73 


: MUI 11 


< 83 

< 93 

< 103 
<113 

< 123 
<133 CR 
<143 
<153 


MONO 


<-3 

TASKEY 


< —- 3 
t IOS 1 • 


multltasker en place 


-> 


IS KEY 


CKEY IS KEY 


15sep87 MZ 

action Identique à KEY 
mais lance le multltasker 
en attendant que le clavier 
soit utlisé. 

autorise le multt-tâche 


retour en mono-tâche 


SCRN# 5 


< 03 \ Sauvegarde automatique 


< 13 

< 2) 300 CONSTANT DELAI \ 

< 43 66 CONSTANT TI MER \ 

< 5) \ 

< 63 DELAI TIMER ! \ 

< 73 

< 83 : SAUVEGARDE < - > \ 

< 93 TIMER @ 0< \ 

<103 IF DELAI TIMER ! \ 

<113 SAVE-BUFFERS \ 

<123 THEN ; \ 

<133 


<143 MULT1 ACTIVE SAUVEGARDE 
<153 .TACHES 


15sep87 MZ 

délai en secondes entre 2 sauvegardes 
automatiques : ici 5 minutes 
timer US sec du téléstrat 
sur ORIC-1 ou ATMOS prenez le timer 
630/#276 en centisecondes 

tâche de sauvegarde 
le délai est-il écoulé ? 
oui : remise du timer à délai 
et sauvegarde 
non : on ne fait rien 


SCRN# 6 

< 03\ Notes sur le TELEFORTH et adaptations 15sep87 MZ 

< 13 la \ des commentaires n'est pas immédiate sur tôlétorth et comme 

< 2> elle est en ROM, il faut la redéfinir : 

<33 : \ \ ; IMMEDIATE 

C 43 W 

7TERMINAL et CKEY sont spécifiques au téléforth : lis testent 

< 63 et exploitent le tampon du clavier TELESTRAT. 

< 73 Pour OR1C-1/ATMOS testez ainsi le clavier en «2DF : 

< 83 HEX : TASKEY < — c 3 26A C@ 1 OR 26A C! < curseur-on 3 

< 93 BEGIN TASKER 2DF C0 80 > UNTIL 20F C@ 7F AND 0 2DF C' 

<103 26A C0 FE AND 26A C! < curseur-off 3 ; 

<113 : MULTI ' TASKEY CFA ' EXPECT 8 4 ! ; si KEY non vectorisé 

<123 : MONO ’ KEY CFA ’ EXPECT 8 + ! ; 

<133 

<143 Le FLUSH d'origine du téléforth ne vide pas les tampons : 

<153 utilisez-le à la place de SAVE-BUFFERS qui manque en standard. 


VITRINE 

DU 

LIBRAIRE 


FORTH 83-STANDARD 
POUR TOUS SYSTEMES CP/M 

ET MS-DOS 

Par 

Marc Petremann 
Jean-Marie Premesnil 
Michel Zupan 

Editions LOISITECH 

Centre Commercial Terminal 93 

93106 MONTREUIL codex 

140 francs 


1 ^* et ouvrage est le seul manuel 
en français du FORTH F83 de 
HWl Laxen et Perry diffusé dans le 
domaine public. S'il s’adresse surtout 
aux possesseurs d'un système MS- 
DOS, il est aussi très attendu de la 
centaine d'oriciens qui disposent du 
F83 pour ATMOS distribué en free¬ 
ware par Michel Zupan (Théorie 29). 
On y trouvera tous les mots du nou¬ 
veau standard commentés avec des 
exemples, ainsi que tout ce qu'il faut 
savoir sur les nouveaux concepts du 
langage. Les auteurs préparent actuel¬ 
lement la suite de ce manuel de réfé¬ 
rence qui sera un manuel d’applica¬ 
tions avec notamment FORTHLOG, 
un très puissant système d'intelligen¬ 
ce artificielle de type PROLOG. 

Le langage Forth étant très économe 
en mémoire, un ORIC avec lecteur de 
disquettes reste un excellent outil d’ini¬ 
tiation au F83 tout en gardant la com¬ 
patibilité avec les gros systèmes. Le 
langage a d'ailleurs été implanté sur 
toutes les configurations depuis un 
ORIC-1 avec JASMIN jusqu’au TELES¬ 
TRAT. 


NDLR : Il est important de noter que 
les auteurs de cet ouvrage sont des 
bénévoles et que les droits d'auteurs 
vont à l'association JEDI (Forth). 
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Je tiens tout d'abord à faire mes excuses à Mon¬ 
sieur W. LUTHER, car je me suis permis de bri¬ 
coler son excellent petit programme au lieu d'en 


A près le CAMEMBERUS VUL- 
GARIS et le CAMEMBERT 
MB PRETRANCHE, voici le CA¬ 
MEMBERT MULTICOLORE à déca¬ 
lage proportionnel inversé semi- 


écrire un en entier. Circonstance atténuante : ce¬ 
ci est fait dans le noble but d’éviter une partie de 
saisie à tous ceux qui ont déjà mémorisé ce lis¬ 
ting. Vous constaterez que certaines lignes restent 
inchangées et que d'autres sont soit modifiées, soit 
supprimées. Dans le cas d’un nouveau numéro 
de ligne, il s’agit d'une ligne entièrement nouvel¬ 
le. Vérifiez tout de même toutes les lignes ! 

Le principe du camembert multicolore est basé 
sur le fait que tout attribut de couleur (ou autre) 
occupe une adresse de l’écran, soit six pixels. Il 
suffit donc de décaler les tranches suffisamment 
pour que les attributs ne viennent pas écraser le 
dessin. Les tranches bien équilibrées permettraient 
un camembert bien rond ; hélas, les petits pour¬ 
centages successifs et les tranches très dispa¬ 
rates m’ont imposé un camembert coulant avec 
décalage. Si vous voulez un camembert bien fer¬ 
me, vous devez modifier les lignes 320 et 330 
comme suit : 

320 MU119+COS(PE)‘50 
330 M2=99-SIN(PE)‘40 

et supprimer les lignes 335 à 347. Lors de l’utili¬ 
sation du programme ainsi modifié, veillez à al¬ 
terner les tranches fines et les tranches épaisses. 
Une autre nouveauté : le nombre des tranches 
peut varier de 2 à 8. Vous pouvez aussi essayer 
0 ou 1, si vous y tenez vraiment. J’ai testé un 
certain nombre de cas, mais bien entendu pas 
tous les cas. Si vous rencontrez une impossibili¬ 
té, il faut soit modifier les lignes 300 à 399, soit 
compléter celles-ci par d’autres tests, ou alors tout 
simplement écrire un meilleur programme. Et je 
sais que vous en êtes tous parfaitement capa¬ 
bles. J’espère que tous les gourmands de graphi¬ 
ques multicolores s’en paieront une bonne tran¬ 
che et je leur souhaite bon appétit ! 


latéral (ouf !). 


10 (40) REH LE CAMEMBERT DE TOUTES LES COULEURS 
20 (130) CLS:PRINT:PRINT:INPUT'Noabre de tranches 
(■axiaua 8) ";NT 

25 (158) REH NOTTEZ LES PORCENTAGES DANS L’ORDRE 
DES COULEURS D’ORIC 
30 (147) S=0:FORI=0TONT-l 
35 (121) PRIHTCHR4(144+1) 

40 (27) PRINTCHR*(128+1+1) 

PR INT "SOCIETE M+l: 

A(I)=ABS(A(I)):S=S+A(I)INEXT 
IF ABS(S-100)> 1THENPRINT"SOMME O 


XMINPUTAU) 


100 %“ 


45 (47) 

50 (82) 

60 (160) 

G0T025 

70 (75) P=PI/50:R=15:DOKEI306,IFFFF 
110 (165) HIRES 

290 (163) REH POURCENTAGES-SECTEURS 
300 (226) M7=0:M8=0:M9=0:B=0:FORI=0TONT-1 
310 (179) A=B:PE=A(I)/2*P+B:B=B+A(I)*P 
320 (176) H1=119+COS(PE)*50+10 /<A(I)+3)*C0S(PE) 
330 (79) H2=99-SIN(PE)*40- 10/(A(I)+3)*COS(PE) 
IFI=0THEN350 

335 (176) IFM2>99ANDH7<99THEN350 

336 (114) IFSIN(PE)<0THEN345 
340 (82) H9=(SIN(PE)>0)*H1 

342 (133) IFM9+M8<12THENM1=H8-12 

343 (243) IFM9+M8)15THENM1=M8-15 

344 (153) GOT0350 

345 (56) M9=(SIN(PE)<0)*M1 

346 (56) IF-M9-H8<12THENM1=H8+12 

347 (88) IF-M9-M8)15THENM1=H8+1 
350 (69) M8=Ht:H7=H2:GOSUB400 
360 (214) NEXTI 
380 (16) DOKE*306,10000:POKE618,3:END 
400 (12) REM DESSIN CAMEMBERT 

410 (215) K=A:L=B:GOSUB495 
420 (48) A$=STRi(A(I))+“%“:CURHOV2.8*RICOS(PE), 
2.96tRtSIN(PEE),3 


ATTENTION ^ 

Programme liste a 

‘s4j=ks 


exc 
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422 (238) IFM>70RN=1THENCURMOV-2,0,3 

423 (240) IFM>lAHDN<8THEMCUra»OVO,-3,3 

424 (8) IFI=lTHENCURMOVO,-3,3 

425 (44) IFPEH»(I)/2*P=PITHENCURH0V1,1,3 

426 (233) IFPE+A(I)/2*P=PITHENCURHOVl,-l,3 

427 (139) IFPE>1.5*PIANDPE<1.52tPITHENCURHOV-2,0, 
3 

428 (B) IFPE-A(I)/2tP>PI/2ANDPE+A(I)/2fP<l.5fPl 
ANDA ( I ) > 5THENCURMOV-6,0,3 

430 (242) GOSUB600:GOSUB700:RETURN 
490 (172) REM SOUPROGRAMME DRAW SECTEUR 
495 (42) R=R*2 

500 (69) CD=RtCOS(K):SO-RtSIN(K):CF=RtCOS(L):SF= 
RtSIN(L) 

510 (9) X=INT(CD+.05):Y=INT(SD+.5):XF=INT(CF+.5 

):YF=INT(SF+.5) 

520(82) CURSET H1,H2,3:DRA¥X,-Y,1 
530 (146) REPEAT 

540 (65) X=X-Y/R :Y=Y+X/R:X0=INT(X+.5):Y0=INT( Y+. 
5) 

550 (193) IFI=0THENCURSETH1+X0,H2-Y0,1 
560 (236) IFD0THENCURSETH1 ,H2,3:DRAVX,-Y,1 
570 (5) UNTIL ABS(X-XFX=2ANDABS(Y-YF)<=2 
580 (47) IFYOOYFTHEHY=Y+X/R:YO=1NT(Y+.5):CURSET 
HXX0,H2-Y0,1 

590 (105) DRAV-X0,Y0,1:R=R/2:RETURN 
600 (180) REH PRINT X 

610 (192) FORLO=2TOLEN(At):CHARASC(H1D4(A4,LO, 1)) 

, 0,1 

620 (162) 1FLO<LEN(A<)THENCURHOV6,0,3 
630 (153) NEXT 
640 (157) RETURN 

690 (20) REM SOUPROGRAMME FILL COULEUR 
700 (45) D=K/PU2:F=L/PU2:G=-INT(-D) :H=-INT(-F) 
: 1FG=0THENG=1 
703 (102) IFH=5THENH=4 
705 (57) N=4*G+H-4 

710 (177) ON N GOSUBllOO,1200,1300,1400,0,1500,16 
00,1700,0,0,1800,1900,0,0,0,2000 
720 (134) X9=-INT(-X9):CURSETX9,Y9,3:IFI=OTHENCOU 
LEUR=7ELSECOULEUR=I 
730 (146) REPEAT 

740 (159) FlLL1,1,COULEUR:REH EN REMPLAÇANT COULE 
UR PAR 127 ON VISUALISE ATTRIBUTS 
750 (44) X9=X9+DX:Y9=Y9+DY:IFX9>Hl+6+ABS(CF)THEN 
X9=Ml+6+ABS(CF) 



752 (52) IFN=2ANDX9<H1-ABS(CF)-20THENX9=H1-ABS(C 
F)-20:DX=0 

755 (195) IFN=6ANDX9<H1-ABS(CF)-15THENDX9=H1-ABS( 
CF)-15:DX=0 

760 (57) IFX9<0THENX9=0:DX=0 
770 (154) CURSETX9,Y9,3 

780 (237) UNTILY9=TEST:IFY9=0THENFILL1,1,COULEUR 
790 (158) RETURN 

1000 (240) REM PARAMETRES POUR FILL COULEUR 
1100 (41) X9=Hl-6-3ICOS(PE-A(I)/2*P):Y9=INT(H2): 
DX=CF/SF:DY=-1 

1110 (19) TEST=INT(H2-ABS(SF))-25:IFTEST<OTHENTE 
ST=0 

1120 (4) IFPE+A(I)/2*P<PI/4THENTEST=INT(H2-ABS( 
SF))-8 

1130 (186) IFI=0AMDA(I)<3THENTEST=INT(H2-ABS(SF)) 
-2 

1140 (46) CURSETX9,Y9,3:FILL5,1,7 
1150 (159) RETURN 

1200 (41) X9=Hl-6+3*COS(PE+A(I)/2*P):Y9=INT(H2): 
DX=CF/SF:DY=-1 

1210 (235) IFDX<-M1-ABS(SF)-20THEHX9=0:DX=0:Y9=Y9 
+2 

1220 (96) IFPE=PI/2THENX9=0:DX=0:Y9=Y9+2 
1230 (210) TEST = 0 
1240 (159) RETURN 

1300 (172) X9=0:Y9=INT(H2+ABS(SF)):DX=0:DY=-1 
1310 (231) TEST=0 
1320 (152) RETURN 

1400 (234) X9=0:Y9=INT(H2+3*R):DX=0:DY=-1 
1410 (231) TEST=0 
1420 (152) RETURN 

1500 (207) X9=H1-10+COS(PE+A(I)/2tP):Y9=INT(H2)+1 
:DX=CF/SF:DY=-1 

1520 (82) TEST=0:IFX9<0THEKX9=0:DX=0 
1530 (152) RETURN 

1600 (140) X9=0:Y9=INT(H2-ABS(SD))-10:DX=0:DY=1 
1610 (132) IFPE+A(I)/24P>PITHENY9=INT(H2-ABS(SD)) 
-1 

1620 (76) TEST=INT(H2+10+ABS(SF)) 

1630 (153) RETURN 

1700 (109) X9=0:Y9=INT(H2-ABS(SD))-1:DX=0:DY=1 
1710 (36) TEST=199 
1720 (153) RETURN 

1800 (221) X9=H1-6:Y9=INT(H2)-1:DX=-CD/SD:DY=1:IF 
DX<-119THEHDX=0 

1810 (40) TEST=INT(H2+ABS(SF))+25:IFTESTM99THEN 
TEST=199 

1820 (154) RETURN 

1900 (245) X9=Hl-6-COS(PE+A(I)/2*P):Y9=INT(H2)-l: 
DX=-CD/SD:DY=1:IFX9<13THENX9=13 
1910 (35) TEST=199 
1920 (154) RETURN 

2000 (34) X9=-INT(-Hl+6+3tCOS(PE-A(I)/2IP)):Y9=I 
NT ( «2 ) : DX=-CD/SD : DY* 1 
2010 (16) TEST=INT(H2+ABS(SD))+20 
2020 (235) IFPE>1.B5XPITHENTEST=TEST-12 
2030 (46) IFX9>238THENX9=238 
2040 (154) RETURNO 
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ui ne connaît pas ce célèbre jeu qui aura occupé bien des généra¬ 
tions de potaches ! Le voici remis à la sauce informatique. THEO- 
RIC n'avait jamais publié ce genre de programme ; désormais, cette 
lacune est comblée I Au fait, s'il était facile de planquer stylo et feuille de 
papier, on peut se demander comment faire avec l'écran et l'ORIC ! 


a- f3S* 

te fëc. 

le 


PRESENTATION 
DU PROGRAMME MORPION 

Il s'agit d'un programme de Morpion 
10*10 comprenant 4 options : 

— 2 joueurs (1), 

— 1 joueur contre l'Oric (2), 

— démonstration (3), 

— fin (4). 

Il ne s'agit pas, comme dans les 
Morpions classiques, d'aligner 
5 croix ou 5 ronds pour gagner, mais 
d'en aligner 4 et de cumuler les 
alignements. 

Chaque alignement (horizontal, ver¬ 
tical ou en oblique) donnant 1 point, 
le vainqueur est celui qui a le plus de 
points à la fin de jeu. 

De plus, une notion de temps de 
réflexion est introduite, ce qui per¬ 
met non seulement de régler le 
niveau de jeu en fonction de ce 
temps de réflexion, mais aussi de ne 
pas s'endormir au clavier : un ZAP 
retentit en effet quand le temps 
devient critique et un SHOOT signi¬ 
fie que le temps est dépassé, le 
joueur perdant ainsi son tour. 

Le niveau de difficulté (autrement dit 
le temps de réflexion) varie de 0 à 9 : 
0 = facile ; 9 = difficile. 

Particularité de l'option 2 
(joueur/Oric) : 

Quand l'écran devient trop rempli, 
lorsqu'on ne peut plus aligner 4 croix 
(vers la fin du jeu), on a la possibi¬ 
lité d'appuyer sur la touche " \ " (en 
haut à droite du clavier), ce qui 
oblige l'Oric à jouer la 1*'® case vide 
qu'il trouvera au coup suivant et 
ainsi de ne pas réfléchir inutilement 
en accélérant la fin du jeu. 

On a également la possibilité, mais 
ceci est valable pour les 3 options, 
d'arrêter le jeu à tout moment en 


appuyant sur la touche ESC entre 2 
coups pour, par exemple, abréger la 
démonstration ou achever une fin de 
partie trop lente. 


Pendant que l'Oric joue (option 2), 
on n'a plus accès au clavier, celui-ci 
étant déconnecté pour accélérer le 
traitement (on gagne ente 25 % et 
30 % de temps). 

DETAIL DU PROGRAMME 


Remarque 


Lignes 91-280 : 
300-1460 : 

2000-3950 : 

4000-4600 : 

4610-4680 : 

4690-5795 : 

5800-7600 : 


7700-8600 

8650-9500 


présentation 
initialisations 
avec choix des 
options et mise à 
zéro du tableau 
de jeu interne, 
affichage du ta¬ 
bleau de jeu. 
changement de 
joueur option 1. 
1 er coup Oric 
(option 2). 
saisie du coup 
du joueur avec 
décrémentation 
du temps, tant 
que le coup n'est 
pas valable, 
contrôle de l'en¬ 
trée et éventuel¬ 
lement retour à 
la saisie en cas 
d'erreur (sans 
remise à zéro du 
temps). 

le coup est bon, 
on le place sur le 
tableau. 

1®' coup Oric 
quand le joueur 
commence (op¬ 
tion 2). 


10000-29990 : 
30000-34500 : 

34900-36000 : 

37000-37700 : 

37990-38600 : 

39000-41600 : 

45000-45450 : 
47000-47100 : 

47200-47300 : 

55000-59330 : 


Oric joue (option 

2). 

tests pour 4 
croix ou 4 ronds 
alignés (1 point), 
sous-programme 
qui montre au 
joueur où le point 
vient d'être mar¬ 
qué (les 4 croix 
ou 4 ronds con¬ 
cernés s'affi¬ 
chent en vert), 
incrémentation 
des points et 
retour au jeu. 
affichage du 
coup de l'Oric 
(option 2). 
fin du jeu, comp¬ 
tabilisation des 
scores et retour 
au menu princi¬ 
pal. 

initialisations, 
déconnexion du 
clavier. 

reconnexion du 
clavier. 

données diver¬ 
ses. 


VARIABLES PRINCIPALES 

Z( 16, 16) : tableau interne du jeu. 
V(9*37), T(37) : tables pour la 
présentation. 

A(1 3), B( 13) : coordonnées de jeu à 
l'écran. 

Y : nombre de coups déjà joués. 

V, W : scores joueur 1 /joueur 2 ou 
joueur/Oric. 

DEM = 1 si on est en mode démons¬ 
tration = 0 sinon. 
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Q1 =999 pour les options 2 et 3, 
= 0 si option 1. 

RI =99 si le joueur commence 
(option 2). 

Tl =99 si l'Oric commence 
(option 2). 

XI =999 si l'option "V" a été pré¬ 
cisée pour le coup suivant (XI est 
remis à 0 à chaque coup). 


CL, CH : valent respectivement 1,2 
ou 2,1 suivant le joueur. 

H$ = "0” ou "X" selon le joueur qui 
joue. 

SS = sauvegarde de CL. 

Ml, M2 : coordonnées du coup de 
l’Oric (option 2). 



10 (163) ROI- 

20 (90) REHtttt tttt 

25 (172) REHt» MORPION 2.2 ttt 

26 (178) REM» ttt 

27 (197) REHm 0RIC1/ATH0S ttt 

30 (98) REHtm tttt 

35 (163) REH. 


40 (239) REH» 2 JOUEURS OU J0UEUR/0RIC tt 

45 (163) REH. 

46 (196) REHt COPYRIGHT 1985 : Ph. NAVEZ t 

48 (163) REM-. 

49 (162) REH 

50 (132) DIHZ(16,16),V(9t37),T(37),A(13),B(13) 

91 (163) REH. 

92 (22) REHt» PRESENTATION ttt 

94 (163) REH- 

100 (152) FORI=*BB80TO#BBA7:P0KE1,32:NEXT 
105 (139) 01=PEEK(»FFFE)=40 

110 (177) G0T0175 

120 (157) RESTORE 

130 (33) F0RI=1T037:J=1 

140 (210) READA:IFA=0THEH160 

150 (213) V((I-l)t9+J)=A:J=J+1:GOT0140 

160 (248) T(I)=J-l:NEXT 

165 (163) RETURN 

170 (182) REH AFFICHAGE 

175 (168) GQSUB47000 

177 (189) GOSUB120 

180 (185) CLS:LORESO: INK2:PAPER0:P0KE618,10 
190 (8) FOR 1 = 1 TOI31 

200 (175) REPEAT:N=INT(RND(1)t37)+1 :UNTILT(N)<>0 
210 (174) S=(N-1)*9:PLOTN*1,V(S+1)+4,127 
215 (209) INKINT(RND(l)t6)+l 
220 (242) V(S*1)=V(S+T(H)):T(N)=T(N)-1:NEXT 
230 (132) FOR1=1T050:NEXT: PING:PLOT26,3,127:PL0T2 
4,3,7:PLOT25,3,12 

235 (194) PLOT9,18,l:PLOT10,18,*V2.2 Par Ph. NAVE 
Z* 

240 (232) FORI=1T0150:NEXT:GOSUB120:INK1:PLOT26,3 
,32 

250 (177) F0RI=1T037:S=(1-1)t9:FORN=1 TOT(I) 

260 (122) PLOTIH,V(S+N)+4,32:NEXT:NEXT 
270 (100) PING :GOSUB4720O 
280 (134) PLOT10,18,” 

300 (182) GOSUB45100 
310 (157) REM 

312 (86) CLS:INK3:PAPERO:POKE618,3 
321 (11) PR1NT:PRINT:PRINT:PRINT:PRINT'V0ULEZ-V0 
US QUELQUES INSTRUCTIONS* 


322 (100) PRINT:PRINT*AVANT DE COMMENCER *CHR«(12 

9): 

323 (184) GETJ4:IFJt<>*0*ANDJIO*N*THEN323 

324 (27) PRINTJC IFJ$=*N*THEN600 
328 (156) WAIT100:CLS:P0KE618,10 

330 (243) PLOT10,2,'JEU DU HORPION* :PLOT9,2,2 
340 (251) PL0T9,4,*=--=============== *:PL0T8,4, 

1 

350 (63) PLÛT7,6,*Ce jeu,qui se joue a deux," 

360 (182) PL0T5,8,'consiste a aligner dans un tab 
leau* 

370 (119) PL0T8,10,*4 croix (X) ou 4 ronds (0),* 
380 (10) PL0T7,12,'et ce dans n'iaporte quel sen 
s* 

390 (150) PLOTS,14,*(horiiontaleaent,verticaleaen 

t* 

400 (93) PLOT10,16,"ou en oblique)* 

410 (129) F0RI=6T012STEP2 
420 (116) PL0T1,1,3:NEXT 
430 (145) PLOT1,14,5:PLOT1,16,5 
440 (137) PLOTl,18,*Pour chaque aligneaent on aar 
que 1 pt* 

450 (21) PLOT5,20,*Le vainqueur est celui qui a 
le* 

460 (159) PL0T7,22,*p 1 us de pts a la fin du jeu* 
465 (211) PL0T1,24,*P.S.: VOUS N'AVEZ QUE 30 S PO 
UR JOUER" 

470 (205) PL0T0,18,1:PL0T1,20,6:PL0T1,22,6:PL0T0, 
24,2 

480 (209) VAIT1500 

490 (202) PLOT12,26,‘BONNE CHANCE !!* 

500 (222) FORI=1T07 

510 (211) F0RJMT07 

520 (192) PL0T11,26,J :WAIT10 

530 (62) NEXT:NEXT 

540 (248) WAIT200 

590 (111) REH. 

592 (104) REHt» INITIALISATION ttt 
594 (111) REH- 

600 (204) Y=0:V=0:W=0 

601 (114) CL=0:SS=0 

603 (215) Q1=0:R1=0:TI=0:X1=0:P*=* * 

605 (95) CLS:INK2:POKE618,3 
607 (153) DEH=0 

610 (136) PRINT:PRINT:PRINTSPC(12JCHRS(129)*0PTI0 
NS* 

620 (37) PRINT :PRINT:PRINT"1. 2 JOUEURS* 

630 (132) PRINT:PRINT*2. 1 JOUEUR / ORIC* 

635 (202) PRINT:PRINT*3. DEMONSTRATION* 
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637 (46) PRINT:PRINT*4. FIN 1 , 

640 (17) GETR4:IFRt <*1*ORR4>‘4*THEN640 
650 (95) PRINTCHRM 129)Rt 
660 (248) IFRf= a 4 a THEira(E618 l 3:END 
670 (249) IFR$= , 3 , THENDBl=l:U4= , ATHOS , :fll=999:GOT 
01000 

690 (74) WAIT100:CLS 

695 (46) PRINT : PRIMT * N1VEAU DE DIFFICULTE (0 A 9 

) ■; 

696 (162) GETNt:IFNt <*0*ORNI> *9*THEN696ELSEPRINTN 

1 

697 (244) N=VAL(N«):NI=75-N*7 

699 (217) IFRt=* 1*THENGOSUB1001 :GOT02000 

700 (34) PRINT:PRINT:PRINT:INPUT'QUEL EST VOTRE 
PRENOM VU» 

705 (129) 01=999 

800 (73) PRINT:PRINT:PRIHT:PRINT“Dans tout le je 
u,vous aurez* 

810 (193) PRINT:PRINT*les croix (X) et aoi les ro 
nds (0)* 

820 (213) PRINT:PRINT"VOUS ETES D'ACCORD ? *CHR»( 
129)) 

830 (42) GETK»:IFK»<>’0’ANDK»<>*N*THEN830 
840 (196) PRINTKI:IFK»=*N*THEN900 
860 (5) PRINT:PRINT.PRINT'AH BON, VOUS HE RASSU 
REZ !* 

870 (195) PRINT:PRINT'ALORS ALLONS-Y !* 

880 (142) GOTO1000 

900 (245) PRINT:PRINT:PRINT*VOUS N'ETES PAS D'ACC 
ORD ?* 

910 (214) PRINT:PRINT*D£ TOUTE FAÇON CE N'EST PAS 
MON* 

920 (213) PRINT: PRINT‘PROBLEME CAR C'EST MOI QUI 
DECIDE !* 

930 (227) PRINT:PRINT: PRINT‘MAINTENANT ALLONS-Y 1 

■ 

999 (159) REH 

1000 (151) GOTQ1009 

1001 (145) F0RI=4T013:F0RJ=4T013:Z(I,J)=0:NEXT:NE 
XT 

1002 (169) F0RI=1T03:F0RJ=1T016:Z(I,J)=9:HEXT:NEX 
T 

1003 (65) FORI=1T016:FORJ=1T03:Z(I,J)=9:NEXT:NEX 
T 

1005 (252) F0RI=14T016:F0RJ=1T016:Z(I,J)=9:NEXT:N 
EXT 

1007 (144) F0RI=1T016:F0RJ=14T016:Z(I,J)=9:NEXT:N 
EXT 

1008 (158) RETURN 

1009 (155) GOSUBlOOl 

1010 (17) IFDEN=1THENP»=*N*:GOT01090 

1015 (230) PRINT:PÇINT:PRINT:PRINT*VOULEZ-VOUS CO 
HHENCER ? *CHR*(129); 

1020 (183) GETPt:IFPt<>*0*ANDPtO*N , THEN1020 
1030 (57) PRINTP»:IFP»=*N*THEN1090 
1050 (29) H»=*X*:CL=2 
1055 (188) Rl=99 
1060 (176) GOT02000 
1090 (66) Tl=99 
1095 (119) H»=*0VCL=1:CH=2 


1100 (103) B=INT(RND( 1)*3)+4:£=INT(RND(1 »3)+4 

1110 (176) GOT02000 

1300 (167) IFY=100THEN39900 

1302 (159) IFX1=999THENX1=0:GOTO29960 

1303 (156) IFCL=1THEN1325 
1305 (250) V»=STR»(V) 

1307 (56) PLOT31.9.VI 
1310 (44) H»=*0*:CL=I:CH=2 
1315 (180> GOSUB1400 

1320 (181) GOTO10000 
1325 (208) t)t=STR4(N):PLOT35,9,tM 
1330 (67) H»=*X*:CL=2:CH=1 
1350 (180) COSUB1400 
1360 (108) IFDEH=OTHEN4700ELSE10000 
1400 (193) FORKL=1T0100:IFKEY$=CHR»(27)THEN1450EL 
3ENEXTKL 

1410 (152) RETURN 
1450 (146) POP 

1460 (25) IFDEH=1THEN600ELSE40000 

2000 (233) REM. 

2010 (70) REH» AFFICHAGE DU TABLEAU » 

2020 (233) REM. 

2060 (107) TEXT:CLS:INK5:POKE618,2 
2070 (245) DZ=37 

2100 (9) PLOT6,1,*0 123456789* 

2200 (204) PLOTS.1,3 
2300 (143) Z»=*ABCDEFGHIJ*:A=3 
2310 (185) FORI =0TO9 
2320 (37) C»(I)=MID»(Z»,1+1,1) 

2330 (160) NEXT 
2400 (209) FORQ=0TO9 
2500 (13) PL0T3,A,HID»(Z»,Q+1,1) 

2600 (107) PLOT2,A,3 : PLOT 4,A,5 
2700 (28) A=A+2:NEXT 
2800 (192) A=3 
2900 (186) FORJ=0TO9 

3000 (77) PLOT6.A,*. 

3100 (198) A=A+2:NEXT 
3150 (5) PLOT32,2,1 
3160 (24) IFDEH=1THENF»=*DEH0*ELSEF»=*JEU * 

3200 (216) PLOT2,23,"Arrêt *+F»+* par ESC entre 2 
coups* 

3210 (44) PLOT33,2,Ft:INK5 

3700 (140) VAIT200 

3710 (116) IFDEH=1THENGOSUB5750 

3800 (88) PLOT32,5,*POINTS*:PLOT31,5,2 

3820 (9) IFQ1=999THEN3860 

3840 (80) PLOT32,7,*l 2*:GOT03900 

3860 (107) PLOT30,7,LEFT4(U»,4):PLOT35,7,*ORIC a 

3900 (19) F=7:F0RU=1T04:PL0T34,F,*:*:F=F+1:NEXTU 

3950 (6) IF01=999THEN4650 

4000 (204) ROI.. 

4010 (224) REH» CHANGEMENT DE JOUEUR » 

4020 (14) REH» (OPTION 2 JOUEURS) » 

4030 (204) REH- 

4200 (235) GOSUB1400 
4250 (159) IFCL=1THEN4500 
4300 (156) GI=*2*:H«=*0*:CL=1 
4400 (164) GOT04700 
4500 (50) G»=*1*:H»=*XVCL=2 
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4600 (204) 
4610 (221) 
4615 (113) 
4620 (222) 
4630 (219) 
4640 (221) 
4650 (27) 
4660 (134) 
4665 (91) 
4667 (55) 
4670 (184) 
4690 (15) 
4692 (77). 
4694 (150) 
4696 (44) 
4698 (15) 
4700 (231) 
4705 (229) 
4710 (179) 
4720 (255) 
4730 (219) 
4800 (59) 

“:INK5 
4850 (248) 
4900 (218) 
“♦Hl+“)“ 

4920 (135) 
5000 (245) 
5100 (161) 
5200 (27) 
5300 (47) 
5500 (94) 
5510 (160) 
5515 (2) 
5520 (120) 
5522 (26) 
5525 (155) 
5527 (154) 
5530 (254) 
5550 (163) 
5600 (16) 
5650 (59) 
5670 (7) 
5700 (176) 
5730 (3) 
5740 (138) 
5750 (89) 
TlRETURN 
5770 (15) 
5780 (43) 
5790 (179) 

0 :DZ=37 
5795 (137) 
5800 (84) 
5810 (16) 
5820 (43) 
5830 (84) 
5900 (187) 
6000 (176) 
6100 (142) 


PLOT34.23,' *:GOT04700 

REM. 

REHttt ORIC COMENCE: ttt 
REHttt SON 1ER COUP ttt 
REMt (OPTION JOUEUR + 0R1C) t 

REH- 

IFT1099THEN4700 

I=E:PLOT32,9,“0“:PLOT36,9,*0" 

CL=l:Ht=“0':SS=CL 

H1=I*4 :H2=B+4:GOSUB38000 

GOT030000 

REM-- 

REMttt ENTREE DU COUP ttt 
REHt DU (OU DES) JOUEUR(S) t 
REHt ET AFFICHAGE DU SCORE t 

REH. 

IFDEH=1THEN10000 

QQ=37 

GOSUB5750 

IFYMOOTHEN40000 

PL=Q 

PLOT2,23,“Entre: vos coordonnées 
IFQ1=999THEN5100 

PLOT26,23,“JOUEUR “:PLOT33,23,G4+“ ( 

G1=INT(RND(1)17+1): 1FG1=5THEN4920 
PLOT25.23.G1 

PLOT3,24,“(lettre et chi 
Vt=STRt(V) 

¥«=STR«(W) 

PL0T31,9,V*:PL0T35,9,M: 
F0RDZ=QQT02STEP-1 
FORDX= 1TONI 

K«=REY$:1FK*=““THEN5525 
I FPL= 1THEH57 30ELSE5600 
NEXTDX 

1FDZ=7THENPL0T1,0,1:ZAP 
PLOTDZ,0,32:NEXTDZ: SHOOT 
IFQ1=999THEN1300ELSE4200 
PLOT14,26,2:A»=K4:PLOT15,26,A4 
IFA4='\“THENX1=999ELSE5700 
¥AIT100 : PLOT15,26,” “:G0T05515 
PL=1:G0T05515 
BI=K4:PL0T16,26,B4 
GOTO5900 

PLOT1,0,2:FORD¥=2TO37:PL0TD¥,0,‘=“:NEX 

IFDEH=OTHENRETURN 
I FDZ=7THEMPLOT1,0,1 

PLOTDZ,0,32:DZ=DZ-1:IFDZ=1THENG0SUB575 
RETURN 

REH. 

REMtt ORIC TESTE SI CE COUP tt 
REHttt EST JOUABLE ttt 

REH- 

FORI=0TO9 

IFA4=HID$(ZM+1,1 )THEN6S00 
NEXT 




6200 (8) PLOT3.24,’ MNK5 

6300 (136) PLOT2,23,“PAS DE LETTRE AU-DESSUS DE J 
SVP •:INK5 

6400 (60) ¥AIT150 : PLOT15,26,* “:QQ=DZ:GOTO4720 

6500 (217) IFB»<“0“ORBt>“9“THEN6700 

6600 (134) B=VAL(B4):GOT07000 

6700 (190) PLOT3,24,“ “:INK5 

6800 (232) PLOT2,23,“TAPEZ UN CHIFFRE EN DEUXIEME 

SVP “:INK5 

6900 (181) ¥AIT150 : PLOT15,26,“ “:QQ=DZ:GOTO4720 

7000 (209) B=B+4: 1=1+4 

7050 (240) FORH=1T02 

7100 (119) IFZ(B,I)=HTHEN7300 

7200 (49) NEXT:GOT07900 

7300 (89) PLOT2,23,’CASE DEJA OCCUPEE 

7400 (202) PLOT3,24,“ “:¥AI 

T150 

7500 (208) PLOT15,26,“ “ 

7550 (28) QO=DZ 

7600 (154) GOTO4720 

7700 (60) REH. 

7710 (133) REHt» SI OUI, PLACEMENT ttt 

7720 (244) REHttt SUR LE TABLEAU ttt 

7730 (60) REH.. 

7900 (104) PLOTA(B),B(I),H« 

8000 (171) Z(B,I)=CL 

8100 (189) PLOTA(B)-l,B(I),12:PLOTA(B)+l,B(I),8 
8200 (253) ¥AIT250:PLOTA(B)-1,B(I),8 
8300 (14) Y=Y+1 
8400 (153) PLOT15.26,* “ 

8500 (17) PL0T1,23,“ 

■ 

8600 (204) PLOT3.24,* 

8650 (71) REH- 

8660 (117) REHttt JOUEUR COHHNENCE: ttt 
8670 (160) REMttt IB? COUP ORIC ttt 

8680 (144) REM» (OPTION JOUEUR ♦ ORIC) tt 

8690 (71) ROI. 

8700 (74) IFP»=“N“THEM9500 

8800 (154) IFRI099THEN30100 

8810 (135) FORTR=DZ+1T02STEP-1 :PLOTTR,0,32:NEXT 

9000 (191) PLOT4,23,“HUHHHHHH.. 

9080 (88) INK5:¥AIT50 

9090 (34) F0RK=4T013:F0RJ=4T013 

9100 (119) IFZ(K,J)=2THEN9150ELSE9400 

9150 (132) IFK=4THENK=6 

9170 (204) CL=1:H*=“0“:SS=CL 

9200 (189) H1=K-1 :H2=J :GOSUB38000 

9250 (182) R1=0 

9300 (234) GOT030000 

9400 (166) NEXT:NEXT:STOP 

9500 (133) IFT1-99THEN34000ELSE30I00 

10000 (137) REH. 

10010 (113) REHtttt tttt 

10020 (153) REHttt ORIC JOUE ttt 

10040 (137) REH-- 

10043 (1) SS=CL 
10047 (242) PL0T1,23,“ 

":PL0T1,24,“ 

10050 (77) INK5:GOSUB47000 
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10053 (0) IFDEM=1THENGOSUB5750:DZ=37:GOTOl0100 
10055 (120) FORTR=DZ+1T02STEP-1 :PLOTTR,0,32:NEXT 
10100 (158) PLOT4,23, , HUHHHMH.. 

10150 (40) IFDEH=lTHEMPLOT20,23, , C+H<+ , ) , :GOTO2 
7100 

11000 (249) P0RKMTO13 

11050 (154) GOSUB5770 

11100 (247) F0RJ=4T013 

11200 (32) IF2(K,J)OCHTHEN23000 

11290 (182) REM 

11300 (252) REM TEST HOR .'X'XXO 
11310 (182) REM 

11350 (108) 1F2(K+1,J)=CHAHD2(K+2,J)=CHTHEN11500E 
LSE12050 

11500 (30) IFZIK+3,J)=CLTHEN11550 

11520 (95) IFK011THEN12050 

11550 (61) IFZ(K-1,J)=0THEN11600ELSE12050 

11600 (230) Ml=K-1:H2= J :GOSUB38000:GOT030000 

11900 (176) REM 

12000 (148) REM TEST VERT .'X'XXO 
12010 (176) REM 

12050 (177) 1FZ(K,J+l)=CHANDZ(K,J+2)=CHTHEN12200E 
LSE13000 

12200 (211) IFZ(K f J+3)=CLTHEH12250 

12230 (127) 1FJ010THEN13000 

12250 (17) IFZIK,J-l)=ÛTHEN12300ELSE13000 

12300 (185) Ml=K:M2= J-l:GOSUB38000:GOT030000 

12800 (172) REH 

12900(88) REH TEST OBL \ .'X'XXO 
12910 (172) REM 

13000 (61) IFZIK+l,J+l) r CHANDZ(K+2,J+2)=CHTHEN13 
200ELSE14000 

13200 (208) IFZIK+3,J+3)=CLTHEN13300 
13230 (58) 1FK=100RJ=10THEN13300ELSE14000 
13300 (131) IFZIK-l,J-l)=OTHEN13400ELSE14000 
13400 (206) H1=K-1:M2=J-1:GOSUB38000:GOT030000 
13800 (169) REH 

13900 (212) REM TEST OBL / .'X'XXO 
13910 (168) REM 

14000 (251) IFZ(K+1,J-l)=CHANDZ(K+2,J-2)=CHTHEN14 
200ELSE15000 

14200 (154) IFZIK+3,J-3)=CLTHEN14300 
14250 (98) IFK=10ORJ=6THEN14300ELSE15000 
14300 (246) IFZIK-l,J+l)=0THEN14400ELSE15000 
14400 (143) H1=K-1:112=J♦ 1 : GOSUB38000 :GOT030000 
14800 (165) REM 

14900 (115) REM TEST HOR OXX'X'. 

14910 1164) REM 

15000 (95) IFZ(K-1,J)=CHANDZ(K-2,J)=CHTHEN 15450E 
LSE16000 

15450 (66) IFZ(K-3,J)=CLTHEN15500 

15470 (64) IFK06THEN16000 

15500 (196) IFZIK+l,J)=0THEN15600ELSE16000 

15600 (52) H1=K+1 :H2= J :GOSUB38000:GÛT030000 

15800 (225) REM 

15900 (222) REM TEST VERT OXX'X'. 

15910 (224) REH 

16000 (178) IFZIK,J-l)=CHANDZ(K,J-2)=CHTHEN16200E 
LSE17000 

16200 (214) IFZIK,J-3)=CLTHEN16250 


16220 (61) IFJ06THEN17000 
16250 (244) IFZIK,J+l)=0THEN16300ELSE17000 
16300 (221) M1=K:M2=J+1:GOSUB38000:GOT030000 
16800 (221) REM 

16900 (147) REH TEST OBL \ OXX'X'- 
16910 (220) REH 

17000 (77) IFZ(K-1,J-l)=CHAMDZ(K-2,J-2)=CHTHEN17 
200ELSE18000 

17200 (64) IFZIK-3,J-3)=CLTHEN17300 
17250 (37) IFK=60RJ=6THEK17300ELSE18000 
17300 (87) IFZIK+l,J+l)=OTHEN17400ELSE18000 
17400 (59) H1=K+1:H2=J+l:GOSUB38000:GGT030000 
17800 (217) REM 

17900 (217) REM TEST OBL / OXX'X'. 

17910 (217) REH 

18000 (115) IFZtK-l,J+l) : CHANDZ(K-2,J+2)=CHTHEN18 
200ELSE19000 

18200 (242) IFZIK-3,J+3)=CLTHEN1B300 
18250 (22) IFK=60RJ=10THEN18300ELSE19000 
18300 (234) IFZ(K+1,J-1)=0THEN18400ELSE19000 
18400 (242) M1=K+1:M2= J-I:GOSUB38000:GOT030000 
18800 (213) REH 

18900 (208) REH TEST HOR X'X'.X ET 'X'.XX 
19000 (177) IFZIK+l,J)=0ANDZ(K+2,J)=CHTHEN19200EL 
SE20000 

19200 (163) IFZ(K+3,J)=CHTHEN19400 
19300 (14) IFZIK-l,J)=CHTHEN19400 
19330 (139) IFZ(K-1,J)=0ANDZ(K+3,J)=0THEN19400ELS 
E200Q0 

19400 (65) H1=K+1:H2=J:GOSUB38000:GOT030000 
19800 (209) REH 

19900 (176) REH TEST VERT X'X'.X ET 'X'.XX 
20000 (104) IFZIK,J+l)=0ANDZ(K,J+2)=CHTHEN20200EL 
SE21000 

20200 (20) IFZIK,J+3)=CHTHEN20400 
20300 (50) IFZIK, J-l )=CHTHEM20400 
20350 (62) IFZ(K,J-l)=0ANDZ(I,J+3)=OTHEN20400ELS 
E21000 

20400 (173) Ml=K:M2= J+l1GOSUB38000:GOT030000 
20800 (205) REH 

20900 (202) REH TEST OBL\ X'X'.X ET 'X'.XX 
21000 (18) IFZ(K+1,J+l)=0AHDZ(K+2,J+2)=CHTHEN213 
00ELSE22000 

21300 (101) IFZ(K+3,J+3)=CHTHEN21500 
21400 (101) IFZIK-l,J-l)=CHTHEN21500 
21450 (136) IFZ(K-1,J-l)=0AMDZ(K+3,J+3)=0THEN2150 
0ELSE22000 

21500 (43) H1=K+1:H2=J+l:GOSUB38000:GÛT030000 
21800 (201) REH 

21900 (149) REH TEST OBL/ X'X'.X ET 'X'.XX 
22000 (25) IFZ(K-1,J+l)=0ANDZ(K-2,J+2)=CHTHEN223 
00ELSE23000 

22300 (103) IFZ(K-3,J+3)=CHTHEN22500 
22400 (207) IFZ(K+1,J-l)=CHTHEM22500 
22450 (0) IFZIK+l,J-l)=0ANDZ(K-3,J+3)=0THDI2250 
0ELSE23000 

22500 (164) M1=K-1:M2=J+l:COSUB38000:GOTO30000 

22900 (94) REH- 

22910 (183) REM* FIN PREMIERE BOUCLE « 

22920 (94) REH 
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23000 

(133) 

23010 

(53) 

23020 

(30) 

23025 

(197) 

23030 

(160) 

23050 

(175) 

23100 

(86) 

E24000 

23200 

(25) 

23300 

(8) 

23400 

(108) 

23500 

(186) 

23800 

(198) 

23900 

(128) 

24000 

(188) 

24100 

(54) 

E25000 

24200 

(224) 

24300 

(211) 

24400 

(16) 

24500 

(16) 

24800 

(2) 

24900 

(210) 

25000 

(50) 

25100 

(236) 

0ELSE26000 

25200 

(217) 

25300 

(191) 

25400 

(45) 

25500 

(155) 

25800 

(254) 

25900 

(193) 

26000 

(217) 

26100 

(187) 

0ELSE27000 

26200 

(105) 

26300 

(174) 

26400 

(210) 

26500 

(44) 

26800 

(0) 

26820 

(173) 

26840 

(0) 

27000 

(181) 

27100 

(216) 

27130 

(186) 

27135 

(91) 

27140 

(36) 

27150 

(78) 

27190 

(244) 

27200 

(241) 

27210 

(244) 

27300 

(212) 

27350 

(106) 

27370 

(212) 

27400 

(84) 

E27730 

27450 

(157) 

E27730 

27550 

(60) 

27690 

(246) 


NEXTlNEXT 

F0RK=4T013 : GOSUB5770 : FOR JMT013 
IF2(K, J) OCHTHEN27000 
REM 

REM TEST HOR ..'X'X. ET .'X'X.. 

IFZ ( K+1, J ) =CHTHEN23100ELSE24000 
IFZ(K-1,J)=0ANDZ(K+2,J)=0THEN23200ELS 

IFZ(K-2,J)=0THEN23400 
IFZIK+3,J > =OTHEN23500ELSE24000 
Ml=K-1:N2= J :GOSUB38000:GOT030000 
M1=K+2;M2=J:GOSUB38000:GOT030000 
REM 

REM TEST VERT ..'X'X. ET .'X'X.. 
IF2(K,J+l)=CHTHEN24100ELSE25000 
IFZ(K,J-l)=0ANDZ(K,J+2)=0THEN24200ELS 

IFZ(K,J-2)=0THEN24400 
I FZ ( K, J <-3 ) =0THEN24 500ELSE25000 
Ml=K:H2= J-1 :GOSUB38000:GÛT030000 
Ml=K:N2=J+2:GOSUB38000:GOT030000 
REM 

REM TEST OBL\ ..'X'X. ET .'X'X.. 
IFZ(K+1,J+l)=CHTHEN25100ELSE26000 
1FZ(K-1,J-l)=0ANDZ(K+2,J+2)=0THEN252C 

IFZ1K-2,J-2)=0THEN25400 
IFZIK+3,J+3)=OTHEN25500ELSE26000 
Ml=K-1 :H2= J-l:GÜSUB38000:GQT030000 
M1=K+2:M2= J+2:GOSUB38000:GOT030000 
REM 

REM TEST OBL/ ..'X'X. ET .'X'X.. 
IFZIK-l,J+l)=CHTHEN2&1OOELSE27O0O 
1FZ(K+1,J-l)=0ANDZ(K-2,J+2)=0THEN262C 

IFZIK+2,J-2)=0THEN26400 
1FZ1K-3,J+3)=0THEN26500ELSE27000 
M1=K+1 :M2= J-l:GOSUB38000:GQT030000 
Ml=K-2:M2= J+2:GOSUB38000:GOT030000 

REM- 

REM» FIN DEUXIEME BOUCLE « 

REM. 

NEXT:NEXT 

IFCL-1THENCL=2:CH=1 :A3=99:G0T011000 

IFDEH=0THEN27300 

IFA3=99THEN27150 

IFCL=2THENCL=1 :CH=2:A3=99:GOTOl1000 

CL=SS 

REH 

REH TEST HOR .000. 

REM 

F0RK=4T013 :GOSUB5770:F0RJ=4T013 
1FZ(K, JXMTHEN28710 
IFK=4THEN27730 

IFZtK+l,J)=lANDZ(K+2,J)=1THEN27450ELS 

IFZIK-l,J)=0ANDZ(K+3,J)=0THEN27550ELS 

Ml=K-1:H2= J :GDSUB38000:GOT030000 
REM 




27700 (242) REM TEST VERT .000. 

27710 (246) REM 
27730 (161) 1FJMTHEN28070 
27750 (44) IFZ(K,J+l)=1ANDZ(K,J+2)=1THEN27800ELS 
E28070 

27800 (241) IFZ(K,J-l)=OANDZ(K,J+3)=0THEN27900ELS 
E28070 

27900 (85) M1=K:H2=J-1:GOSUB38000:GOT030000 
28040 (241) REM 

28050(61) REH TEST OBL \ .000. 

28060 (241) REH 

28070 (197) IFK=40RJ=4THEN28430 
28100 (119) IFZ(K+1,J+l)=lANDZ(K+2,J+2)=1THEN2815 
0ELSE2843O 

28150 (198) 1FZ(K-1,J-l)=0ANDZ(K+3,J+3)=0THEN2825 
0ELSE28430 

28250 (208) H1=K-1:H2=J-1:GOSUB3BOOO:GOT030000 
28390 (240) REH 

28400 (43) REM TEST OBL / .000. 

28410 (240) REH 
28430 (84) IFK=4THEH28710 
28450 (249) IFZ(K+1,J-l)=1ANDZ(K+2,J-2)=1THEN2850 
0ELSE28710 

28500 (164) IFZIK-l,J+l)=0ANDZ(K+3,J-3)=0THEH2860 
0ELSE28710 

28600 (138) Ml=K+3;H2=J-3:GOSUB38000:GOT030000 

28702 (248) REH--— 

28704 (106) REM» FIN TROISIEME BOUCLE « 

28706 (248) REH- 

28710 (120) NEXTlNEXT 

28720 (238) F0RK=4T013:GOSUB5770: FORJ=4T013 
28730 (96) IFZ(K, JKMTHEN29610 
28740 (242) REM 

28750 (110) REH TOUS TESTS .0... 

28760 (242) REH 

28830 (154) IFZfK+l,J)=0ANDZ(K+2,J)=0ANDZ(K+3,J)= 
0ANDZ(K-1,J)=0THEN28850ELSE29000 
28850 (184) Ml=K+1 :M2=J :GOSUB38000:GOT030000 
29000 (212) IFZ(K,J+1)=0ANDZ(K,J+2)=0ANDZ(K,J+3)= 
OANDZIK,J-l) = 0THEN29050ELSE2 9150 
29050 (119) H1=K:H2= J+1 :GOSUB38000:G0T030000 
29150 (150) IFZIK+l,J+l)=0ANDZ(K+2,J+2)=0ANDZ(K+3 
,J+3)=0THEN29250ELSE29400 
29250 (11) IFZIK-l,J-l)=46THEN29300ELSE29400 
29300 (11) H1=K+1:M2=J+2:GOSUB3BOOO:GOT030000 
29400 (12) IFZIK+l,J-l)=0ANDZ(K+2,J-2)=0ANDZ(K+3 
,J-3)=0THEN29530ELSE29610 
29530 (83) IFZ(K-1,J+1)=46THEN29550ELSE29610 
29550 (150) M1=K+1:M2=J-1:GOSUB38000:GOT030000 
29610 (75) NEXTlNEXT 

29620 (163) F0RK=4T013:GOSUB5770: FORJ=4T013 
29630 (134) IFZ(K,J)=1THEN29700ELSE29950 
29640 (239) REH 

29650 (183) REM TOUS TESTS 0. 

29660 (239) REH 

29700 (153) IFZ(K+1,J)=0THENM1=K+1 :H2= J :GOSUB3800 
0 :GOT030000 
29750 (47) 

0 :GÛT030000 
29800 (63) 


IFZ(K,J+l)-0THENHl=K:H2=J+l:GOSUB3800 


IFZ(K+1, J+l )=0THENM1=K+1 : H2=J+l iGOSUB 
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38000IGOT030000 

29850 (187) IFZ(K+1,J-1)=OTHENH1=K+I:H2=J-1:GOSUB 
38000:GOT030000 

29900 (121) REH- 

29910 (74) REH» FIN QUATRIEME BOUCLE » 

29920 (121) REH- 

29950 (76) NEXT:KEXT 

29955 (240) GOSUB5770 

29960 (104) F0RK=4T013:F0RJ=4T013 

29970 (41) IFZ(K,J)OOTHEN29985 

29975 (45) K1=K:«2=J :GOSUB38000:GQT030000 

29982 (58) REH- 

29983 (242) REH«* RETOUR AU JEU ttt 

29984 (58) REH. 

29985 (88) NEXT:NEXT:IFDEH=1THENCL=SS:GOT01300 
29988 (36) CL=1:GOT01300 
29990 (233) REH 

30000 (55) REH. 

30005 (167) REH» » 

30010 (121) REH» TESTS POUR 4 ALIGNES » 

30020 (205) REH» ( 1 POINT ) tt 

30025 (167) REH» « 

30030 (55) REH- 

30050 (53) IFQ1=9990RDEH=1THEHB=H1:I=H2 
30060 (245) IFQ1=999ANDDEH=0THENCL=I 
30070 (63) GOSUB47200 
30100 (233) REH 

30200 (112) REH TEST HOR .XM 
30205 (233) 

30210 (171) 

30220 (252) 

30240 
30250 
30260 
30290 
30295 
30300 
30305 
30310 
30320 
30340 
30350 
30360 
30390 
30395 
30400 
30405 
30410 
30420 
30430 

30450 (59) 

30460 (235) 

30490 (228) 

30495 (235) 

30500 (225) REH TEST HOR X.M 
30505 (235) REH 

30510 (89) IFZ(B-1,1)OCLTHEM31010 
30520 (157) F0RK=1T02 

30530 (223) IF2(B*K, I)OCLTHEH31010ELSQCXT 
30550 (58) GOSUB37000 


30560 (235) A1=B-1:GOSUB35000 
30900 (234) REH 

31000 (129) REH TEST VERT .MX 
31005 (229) REH 
31010 (212) F0RK=1T03 

31020 (107) IFZ(B,I+K)OCLTHEN31210ELSENEXT 

31040 (123) IFZ(B,1+4)=CLTHEN31210 

31050 (216) GOSUB37000 

31060 (254) C1=0:PA=1:C2=9:GOSUB35500 

31130 (1) GOT032000 

31190 (229) REH 

31200 (98) REH TEST VERT XM. 

31205 (229) REH 
31210 (212) F0RK=1T03 

31220 (58) IFZ(B,I-K)OCLTHEM31410Q-SENEXT 

31240 (79) IFZ(B,I-4)=CLTHEN31410 

31250 (247) GOSUB37000 

31260 (218) C1=-3:PA=1:C2=9:GOSUB35500 

31330 (222) GOT032000 

31400 (242) REH TEST VERT M.X 

31405 (228) REH 

31410 (177) IFZ(B,1+1 ) OCLTHEN31610 
31420 (208) F0RK=1T02 

31430 (121) IFZ(B,I-K)OCLTHEN31610ELSENEXT 

31450 (247) GOSUB37000 

31460 (129) C1=-2:PA=I:C2=9:GOSUB35500 

31530 (223) GOT032000 

31590 (231) REH 

31600 (121) REH TEST VERT X.M 
31605 (231) REH 

31610 (104) IFZ(B, 1-1 )OCLTHEN32010 
F0RK=1T02 

IFZIB, I+K) OCLTHEN32010ELSENEXT 
GOSUB37000 

Cl=-1:PA=1:C2=9:GOSUB35500 
REH 

REH TEST OBL \ .XM 
REH 

FORK=1T03 

IFZIB+K, I+K) OCLTHEN32210ELSENEXT 
IFZ(B+4.I+4)=CLTHEH32210 
GOSUB37000 

C1=0:PA=1:C2=C1:GOSUB35500 
GOT033000 
REH 

REH TEST OBL \ XM. 

REH 

FORKMT03 

32220 (24) IFZ(B-K,I-K)OCLTHEH32410ELSENEXT 

32240 (23) IFZ(B-4,I-4)=CLTHEH32410 

32250 (84) GOSUB37000 

32260 (107) C1=-3:PA=1:C2=C1:GOSUB35500 

32330 (11) GOT033000 

32390 (32) REH 

32400 (51) REH TEST OBL \ M.X 

32405 (32) REH 

32410 (134) IFZ(B+I,I+1)OCLTHD(32610 
32420 (116) FORKMT02 

32430 (21) IFZ(B-K,I-K) OCLTHEN3261OELSENEXT 
32450 (83) GOSUB37000 


( 6 ) 

(59) 


REH 

F0RK=1T03 

IFZIB+K, I ) O CLTHEN3031 OELSENEXT 
IFZIB+4,1)=CLTHEN30310 
GOSUB37000 
(135) A1=B:COSUB35000 
(229) GOT031000 
(232) REH 

(164) REH TEST HOR XM. 

(232) REH 

(171) F0RK=1T03 

I FZ ( B-K, I ) O CLTHEN3041 OELSENEXT, 
IFZ(B-4,I)=CLTHEM30410 
GOSUB37000 
A1=B-3:GOSUB35000 
(229) GOT031000 
(232) REH 

(91) REH TEST HOR M.X 
(232) REH 

(85) IFZ(B+1,1 ) OCLTHEN30510 

(172) F0RK=1T02 

IFZ(B-K, I ) OCLTHEN30510ELSENEXT 
GOSUB37000 
Al=B-2:GOSUB35000 
GQT031000 
REH 


(42) 

(230) 

(59) 

(78) 


(43) 



31620 (209) 
31630 (126) 
31650 (246) 
31660 (29) 
31900 (230) 
32000 (71) 
32005 (33) 
32010 (104) 
32020 (18) 
32040 (93) 
32050 (84) 
32060 (168) 
32130 (12) 
32190 (33) 
32200 (149) 
32205 (33) 
32210 (104) 
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32460 

32530 

32590 

32600 

32605 

32610 

32620 

32630 

32650 

32660 

32900 

33000 

33005 

33010 

33020 

33040 

33050 

33060 

33130 

33190 

33200 

33205 

33210 

33220 

33240 

33250 

33260 

33330 

33390 

33400 

33405 

33410 

33420 

33430 

33450 

33460 

33530 

33590 

33600 

33605 

33610 

33620 

33630 

33650 

33660 

33900 

33910 

33920 

34000 

34020 

34050 

34200 

34300 

34400 

34500 

34900 

34910 

34920 

35000 

35050 


( 68 ) 

( 10 ) 

(35) 

( 212 ) 

(35) 

( 222 ) 

(69) 

(45) 

(82) 

(128) 

(34) 

(82) 

(34) 
(73) 
(19) 
(189) 
(16) 
(203) 
( 11 ) 
(29) 
(69) 
(29) 
(92) 
(84) 
(207) 
(16) 
(40) 
( 12 ) 
(28) 
(24) 
(28) 
( 2 ) 
( 88 ) 
(145) 
(15) 
(140) 
( 12 ) 
(31) 
( 11 ) 

(31) 
(203) 
(89) 
(18) 
(14) 
(96) 

(164) 

(165) 
(164) 
(126) 
(185) 
(217) 
( 12 ) 
(168) 
(197) 
(64) 

(32) 
(216) 
(32) 

(35) 
(80) 


Cl=-2:PA=1:C2=C1;GOSUB35500 

GÛT033000 

REM 

REM TEST OBL \ X.XX 
REH 

1FZ(B-1,1-1) OCLTHEN33010 
F0RR=1T02 

IFZ(B+R, I+R) OCLTHEM33010ELSENEXT 
GOSUB37000 

Cl=-1:PA=1:C2=C1:GOSUB35500 
REH 

REH TEST OBL / .XXX 

REM 

F0RR=1T03 

IFZ ( B-K, I+R ) OCLTHEN3321OELSENEXT 
1FZ(B-4,I+4)=CLTHEN33210 
GOSUB37000 

C1=0:PA=-1:C2=C1:GOSUB35500 

GOT034000 

REH 

REH TEST OBL / XXX. 

REH 

F0RR=1T03 

IFZ(B+R, I-K) OCLTHEN3341OELSEHEXT 
IFZ(B+4,I-4)=CLTHEN33410 
GOSUB37000 

C1=-3:PA=-1:C2=C1:GOSUB35500 

GOT034000 

REM 

REH TEST OBL / XX.X 

REH 

IFZ(B-1,1+1 ) OCLTHEH33610 
F0RR=1T02 

IFZIB+R,I-R) OCLTHEN3361OELSENEXT 
GOSUB37000 

Cl=-2:PA=-1 :C2=C1 :GOSÜB35500 

GOT034000 

REH 

REH TEST OBL / X.XX 

REH 

1FZ(B+1,1-1 ) OCLTHEM34000 
F0RK=1T02 

IFZ(B-R, I+R) OCLTHEN34000ELSENEXT 
GOSUB37000 

C1=-1:PA=-1:C2=C1:GOSUB35500 


ROI- 

REH Ut RETOUR AU JEU ttt 

REH- 

GOSUB47200 

1FDEH=1THENT1=0 :A3=0:GOTOl300 
IFQ1=0THEN4200 

IFT1=99THENT1=0:CL=1:GOTO130O 
IFR1=99THENR1=0:CL=1:GOTO1300 
IFA3=99THENA3=0:CL=1:GOT01300 



GOTO1300 

REH- 

REH» SPG DE CLIGNOTEMENT « 

REH. 

REH»«« SPG 1 
FORK=0TO3 


35100 (128) PLOTA(Al+R)-l,B(I),2:NEXT:PLOTA(Al+3) 
♦1,B(I),5 

35200 (150) NAIT200:FORR=0TO3:PLOTA( A1+R ) -1, B ( I ), 
5 :NEXT:RETURN 

35500 (35) REH»»«t SPG 2 
35600 (199) FORK=ClTOCl+3 
35650 (109) IFC2=9THENB=B-R 
35700 (155) PLOTA(B+KtPA) -1, B ( I+R ), 2 :PLOTA(B+RIPA 
)+l,B(I+R),5 

35750 (102) IFC2=9THENB=B+R 

35770 (180) NEXT:WAIT200 

35800 (81) FORK=ClTOCl+3:IFC2=9THENB=B-R 

35850 (200) PLOTA(B+R*PA)-l,B(I+R),5 

35900 (109) IFC2=9THENB=B+R 

36000 (136) NEXT:RETURN 

37000 (213) REH-. 

37010 (68) REHIIt SP POUR 4 ALIGNES ttt 

37020 (213) REH. 

37030 (18) REH 
37050 (86) IFQ1=99977037110 
37100 (18) PLOT2.23,"VOUS AVEZ 1 POINT,"♦" JOUEU 
R "+GI:INKS:GOTO37290 
37110 (71) IFCL=2THEN37280 
37120 (93) PLOT2.23,"J'AI UN POINT !!!" 

37125 (36) INK5 

37130 (190) PLOT3,22," 

■ 

37135 (147) FORV1=1T04:ZAP:NAIT10:NEXT:NAIT25:EXP 
LODE 

37140 (90) PLOT33,16,V 

37150 (142) PLOT33,14,’:*:PLOT33,18,* : * 

37160 (96) PLOT31,U.'-'lPLOTSS.U,’-’ 

37170 (117) PLOT32,14,12:PLOT32,18,12 

37180 (233) PLOT30,16,12:PLOT32,16,8:PLOT34,16,12 

37190 (38) NAIT250 

37200 (26) FORV2=14T018:PLOT31,V2," ":NEXT 

37220 (56) GOT037400 

37280 (131) PLOT2,23,"VOUS AVEZ I POINT,"+U< 

37285 (36) INR5 

37290 (184) PLOT3,24,* 

■ 

37295 (110) FORVl=lTO4:ZAP:NAIT10:NEXT 
37300 (9) NAIT150 

37400 (202) PLOT1,23," 

■ 

37500 (50) IFCL=2THEN37700 
37600 (17) N=N+l:RETURN 
37700 (158) V=V+1:RETURN 

38000 (89) REH.- 

38040 (90) REH» AFFICHAGE COUP ORIC tt 

38050 (89) REH- 

38070 (14) GOSUB47200 
38080 (92) CL=SS 

38100 (215) E»=STRt(Hl-4):El=HIDt(E»,2) 

38200 (230) PLOT2.23,"JE JOUE EN "♦Ct(H2-4)+E»+" 

■ 

38210 (116) PLOT12,23,2:PING 

38250 (130) NAIT100:Y=Y+1 

38300 (3) PLOTA(Hl),B(H2),Hi:Z(Hl,H2)=CL 

38400 (138) PLOTAIH1)-l,B(H2),12:PL0TA(H1)♦!,B(H2 












>,8 

38500 (162) ¥AIT250:PLOTA(Ï!1 )-1 ,B(H2) ,8 

38600 (9) RETURN 

39000 (221) REM- 

39100 (242) REHm FIN DU JEU ttt 

39200 (158) REH.. 

39900 (7) REH 

40000 (33) PLOT2,23,'FIN DU JEU 

■ 

40013 (116) IFV>¥THEND*=STRCV):N»=STR4(N):GOTO40 
015 

40014 (255) D»=STR«(¥):NI=STRi(V) 

40015 (219) 1FQ1=999THEK41000 
40020 (118) IFV=¥THEN40090 

40030 (63) IFV>¥THENQ»='1'ELSEQ»='2' 

40070 (194) PLOI2,24,'JOUEUR '+Q4+' GAGNE AVEC 
D»+' POINTS' 

40080 (245) INK5:G0T041500 
40090 (134) PLOT2,24,'JOUEUR 1 EX-AEQUO AVEC JOUE 
UR 2' 

40100 (31) GOTO41500 
41000 (51) IFV=VTHEN41300 
41010 (45) IFVWHENQC'VOUS AVEZ':J*='FELICITAT 
IONS':G0T041080 

41020 (255) Q4=*J'AI'IJ4=*Y0UPI1!!!* 

41080 (25) PLOT15,26,' ' 

41100 (112) PLOT2,24,04+' GAGNE PAR '+D4+' POINTS 
A *+N4 

41200 (208) PLOT8.26, JC INX5 
41250 (34) GOT041500 

41300 (182) PLOT2,24,'NOUS SONNES EX-AEQUO" 

41310 (28) PLOT15.26,' * 

41350 (245) PLOT2.26,"JE FERAI HIEUX LA PROCHAINE 
FOIS!' 

41500 (24) VAIT200 

41550 (13) PLOT2,26,'APPUYEZ SUR UNE TOUCHE POUR 
CONTINUER' 

41600 (242) GETICGETICGOTO600 

45000 (161) REH. 

45010 (206) REH! INITIALISATIONS DIVERSES t 

45020 (161) REH. 

45100 (104) READACL1=46080+ASC(AI)!8 
45150 (205) F0RI=L1T0L1+7:READY1:POKEI,Y1 :NEXT 
45300 (215) FORI=0TO32:READAC A=VAL('#'♦A4):POKEI 
400+1,A:NEXT 

45310 (175) IFPEEK(IFFFE)=40THENI=»230ELSEI=*24A 
45320 (147) DOKE18,4801CPRINT'H O R P I O N 2.2 
'CHRi(ll) 

45330 (33) DOKEI+1,1400:POKEI,76 
45400 (105) FORI=0TO9:A(I+4)=II2+6:B(I+4)=I!2+3:N 
EXT 

45450 (44) RETURN 

47000 (74) IF01THENCALLIE6CAELSECALLIE76A 
47100 (42) RETURN 

47200 (113) IF01THENCALLIE807ELSECALLIE940 
47300 (43) RETURN 

55000 (222) REH.. 

55100 (190) REHM! DONNEES DIVERSES !!! 
55200*425) REH. 


58000 (89) REH PRESENTATION 
58100 (222) DATAI,2,3,4,5,6,7,8,9,0,2,0,3,0,2,0,1 
, 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 0,0 

58200 (77) DATA2,3,4,5,6,7,8,0,1,9,0,1,9,0,1,9,0 

, 2 , 3 , 4 , 5 , 6 , 7 , 8 , 0,0 

58300 (81) DATAI,2,3,4,5,6,7,8,9,0,1,5,0,1,5,6,0 
,1,5,7,0,2,3,4,8,9,0,0 

58400 (204) DATAI,2,3,4,5,6,7,B,9,0,1,5,0,1,5,0,1 
,5,0,2,3,4,0,0 

58500 (46) DATAI,2,3,4,5,6,7,B,9,0,0 
58600 (188) DATA2,3,4,5,6,7,8,0,1,9,0,1,9,0,1,9,0 
, 2 , 3 , 4 , 5 , 6 , 7 , 8 , 0,0 

58700 (218) DATAI,2,3,4,5,6,7,8,9,0,2,0,3,0,4,0,1 
,2,3,4,5,6,7,8,9,0 
59000 (237) REH ORIC 
59100 (241) DATA.,31,21,31,4,31,4,10,17 
59200 (153) REH HORPION 2 CLIGNOTANT 
59300 (48) DATA48,E6,O2,A5,02,C9,OD,DO,16,A9 
59310 (243) DATA00,85,02,18,A5,01,8D,85,BB,69 
59320 (3) DATA01,85,01 ,C9,08,D0,04,A9,01,85 

59330 (10) DATA01,68,40 




















Les bcwmz 

Rémi LE REVEREND 


Cette petite routine branchée sur le 
Ready permet d'avoir, à chaque fois 
que l’ordinateur rend la main, le con¬ 
tenu des adresses $48D et $48F, 
c'est-à-dire lors d'un LOAD, par 
exemple, les adresses de début et 
de fin du bloc mémoire chargé, ce 
qui peut être plus souple dans le 
cas de copie de programmes en lan¬ 
gage machine d'une disquette à 
une autre que d'utiliser COPY. D'au¬ 
tre part, ce programme peut égale¬ 
ment servir pour afficher d'autres 
adresses : il suffit de les changer à 
la fin du texte source. Enfin, le pro¬ 
gramme a été placé tout en haut de 
la mémoire pour ne pas être recou¬ 
vert par un logiciel, ce qui planterait 
l'Oric. De toute manière, il est entiè¬ 
rement relogeable. 

Pour ceux qui ne possèdent pas 
d'assembleur, nous fournissons un 
listing BASIC chargé d'implanter les 
DATA du langage machine. 

Utilisation : faire RUN, puis ISAVE 
"ADR.BIN,#BB00,#BB40". 

La routine n'occupe que deux sec¬ 
teurs. Lorsque vous la rechargerez 
pour l'utiliser, n'oubliez pas de faire 
DOKE # IB, # BBOO pour la "bran¬ 
cher". 


Connaître les adresses de début et fin de fichier 
d'un programme sur disquette Jasmin, tel est 
le but de ce petit utilitaire. 


0000 


1 

0R6 4B800 

BflOO 


2 

LST 

BBOO 

48 

3 ADR.HEX 

PHA 

æoi 

98 

4 

TYA 

BB02 

48 

5 

PHA 

B803 

A2 00 

6 

lox «oo 

BB05 

36 2F 

7 

STX 42F 

B807 

AD 8E 04 

8 

LDA A0R1U 

B BOA 

20 93 B9 

9 

JSR (€XA 

BBOO 

AD 80 04 

10 

LOA A0R1 

BB10 

20 93 09 

11 

JSR tCXA 

B613 

A9 00 

12 

LOA «00 

BS15 

90 00 01 

13 

STA 4100.X 

B818 

AO 01 

14 

LDY «1 

BB1A 

20 BO a 

13 

JSR STROUT 

B81D 

20 04 CC 

16 

JSR OUTSPC 

B820 

A2 00 

17 

LOX «00 

B822 

86 2F 

18 

STX 42F 

BB24 

AD 90 04 

19 

LDA A0R2M 

B827 

20 93 D9 

20 

JSR HEXA 

BB2A 

AD 8F 04 

21 

LDA AHt2 

B82D 

20 93 D9 

22 

JSR HEIA 

BB30 

A9 00 

23 

LDA «00 

BB32 

90 00 01 

24 

STA 4100.X 

BB35 

AO 01 

25 

LDY «1 

®37 

20 BO CC 

26 

JSR STROUT 

BB3A 

68 

27 

PLA 

BB3B 

A8 

28 

TAY 

BB3C 

68 

29 

PLA 

E63D 

4C BO CC 

30 

Jrt> STROUT 

B840 


31 HEXA 

EQU 4D993 

B840 


32 OUTSPC 

EQU 4CCD4 

BB40 


33 SIROUT 

EQU 4CCB0 

BB40 


34 ADR1 

EQU 4480 

BB40 


35 ADR2 

EQU 448F# 




;Sauvt les registres pour affichage 

; de Ready a la fin 

{Coapteur 

{Pointeur pour la longueur de la chaine 
;foriee par le noabre heia 


{Marque la fin de la chaine 

{Octet fort de la chaine a afficher 
{L’octet faible est A. soit 0. 


laeae chose pour la 2e adresse 


{affiche Ready 

{08F5 sur Orid 
{CCOD sur Or ici 
{CBED sur Orid 



10 A=#BBOO:F=#BB40:L=100 :REPEAT: FOR A=A TO A+ 1 5 :READ Ci 
20 K = VAL("#"+C$) :S=S+K+65536*(S+K> 65535) : IF A< = F THEN POKE A ,K 
30 NEXT:READ D* : IF S=VAL<"#"+Dt) THEN L=L+5:UNTIL A>F! END 
40 PING :PRINT"Erreur ligne";L 

100 DATA 48,98,48,A2,00,86,2F,AD,8E,04,20,93,D9,AD,8D,04,0688 
105 DATA 20,93,D9,A9,00,9D,00,01,AO,01,20,BO,CC,20,D4,CC,0D58 
110 DATA A2,00,86,2F,AD,90,04,20,93,D9,AD,8F,04,20,93,D9,1448 
115 DATA A9,00,9D,00,01,A0,01,20,BO,CC,68,A8,68,4C,BO,CC,1BOC 
120 DATA 55,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,1B61# 
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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


thévric 


ètermhde progfomnxjtaon 




Utlitaires: Supemum.Erfiteur 
de textes...Jeux:Navaloric. 
LPengo.Stafwar... 


Pour les seuls numéros encore 
disponibles en novembre 1987. 

Numéro 6 

Essais de l-XL DOS. ALTTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la cane 8 
E/S MAQECO. VOICE : ORIC 
parte dans interface. RENUM-OES- 
TRUC renumératian et suppression 
de lignes Basic. Les InterTup- 
tlone : une horloge. Maatar-mlnd : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La 
Jasmln-Printer (Brother M 1009) à 
l'essai et recopie d’écran pour cette 
imprimante. 

Numéro 7 

BLURICS : jeu. Edltaur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs an langage ma¬ 
china pour aller plus vite. Lecture 
et Ecriture de centaure sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour d'horizon des Monl- 
te u rs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 


Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifications du MONITEUR 
1.0 de LORCIELS. CROCKY : jeu. , 
Compte bancaire : gérez le sur 
MICRO-DISC (1). Compatibilité DTL 
2000 et JASMIN. 


Numéro 11 

Hors-série rempli d'une multitude de 
programmes en tous genres. 

Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 
rORIC. Essai de la table graphique 
GRAPHISCOP. Le partage mé¬ 
moire de rORC. Utilitaires pour 
vous plaire (2). Un Monlteur- 
Aasembleur. Compta bancaire 
(suite et fin). 

Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 un logiciel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de rORIC. Utilitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODISC et JASMIN: 
ils communiquent City on Raid : 
jeu. 

Numéro 15 

Une imprimante à l'essai : la MT 
SOS. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 256 
couleurs de Mkrofutur. Editeur de 
eecteurs sur Jasmin. MUSCORIC 
pour que rORIC-1 devienne musi¬ 
cien. Carte série pour liaison avec 
MINITEL. Educatif: le moteur è 4 
tempe Redéfinition de caractères 
pour EASYTEXT. 


Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de Técran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel d'application de 
la car» série Minitel. Recopie ra¬ 
pide sur Imprimants mode texte. 
Ecriture évoluée. LEONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacqueries de cas¬ 
settes pour GP 50. Catalogue 
amélioré sur Jasmin. 


Numéro 18 

Un drive 3"1/2 à Triphonie: 
rORC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : chiroiogie ou jeu ? Un jeu : 
Frog Panic. Pour lister un program¬ 
me à partir du M8HTEL (et de la 
car» série) : MUST Accordez vos 
instruments de musique avéc Fré¬ 
quencemètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml 009 
(Jasmin primer). Lister TEPROM du 
Microdisc. 


Numéro 19 

Léonard : fin de l'utilitaire création 
graphique. Modifications de TAT- 
MOS et du MICROOISC. Un mlnl- 
Interprétsur Protection du Hl- 
MEM. Le tri en langage machine. 
Jeu éducatif : EUROP'ORIC En sa¬ 
voir plus sur le SEDORIC. Compte 
bancaire gérez-le sur JASMIN. Uti¬ 
litaires pour vous plaire (4). 


26 


































Numéro 20 

CALCULATOR: banc d'essai. - 
PUISSSANCE 4 jeu - Recopie d'é¬ 
cran pour FASTEXT 80 - Mini Inter¬ 
préteur Basic. 

Numéro 21 

les interruptions - Animation gra¬ 
phique en 3 0 - Jeu : Singerie (1) - 
SEDUTH pour mieux utiliser SEDO- 
RIC - Recopie page VIDEOTEX - 
Butler soft pour imprimante - Super 
recopie d'écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants - MUSICORIC et 
JASMIN - Jeu: Singeries (2) - 
SWAP OVERLAY - Diététique: 
mieux s'alimenter - Schéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educatif : TABIORIC. Print Formaté 

- Stnng : commandes graphiques - 
Sauvetage d'un programme - Cal¬ 
culs de fORIC - Trames et collages 

- Casse- bnques - clipping. 


sur FT-DOS (5) - Educatif : Ta¬ 
bles BASIC + 

Numéro 32 

Essai du modulateur UHF - Mini¬ 
logo - Jeu : Jack-pot - Contrô¬ 
le d'un moteur (1) - Suptron - 
Fonction SCRN pour Télestrat 
Les connecteurs du Télestrat 
Tout sur FT-DOS 3.2 (6)- Lan¬ 
ceur de programmes Jasmin. 

Numéro 33 

Télestrat : gestion de canaux 
Fonction point - Solfège - Con¬ 
trôle d'un moteur (2) - Le coda¬ 
ge des réels - Fichier vidéothè¬ 
que (Sédoric) - Jeu : Waran- 
gal- Compactage et décompac¬ 
tage de l'écran Hires. 

Numéro 34 

L'Ula 10017 - L'horloge temps 
réel - Jeu : Miss Caterpill - 
Forth : soft Buffer - Trames (4) 
Tous les produits pour Oric (12 
pages) - Sautez la pliure - Pro¬ 
grammer et contrôler un mo¬ 
teur (3) - Educatif : Féoric - In¬ 
terface Micro dise - Utilisation 
du FT DOS 3.2. 



Numéro 36 

Le modem V23 d'Oric - Inter¬ 
view de Fabrice Broche - Té¬ 
lestrat : chargeur page vidéo- 
text - FGSUP - Logiciel pour 
programmateur d"Eprom (2) - 
Educatif : l'heure — Jeu : Yam 
(suite et fin) - Bidouille : modi¬ 
fications du synthétiseur vocal 
TMPI - Tableur. 



Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (lin) Calculs dans 
N - Dossier TELESTRAT - Mmi- 
Print : éditeur de banderollea - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 

Numéro 29 

Test : le Jasmin-PC. Ces fichiers 
dont tout le monde parie - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem col or - En savoir plus sur FT 
DOS - Data ♦ - ORIC à 2 ROM - 
MUSIC(I) 

Numéro 27 

Fenêtres — Simulation RS 232 par 
soft — TDK : transfert de disquette à 
cassette — ATMOS à Paris (2). 

Numéro 28 

ORIC Hippie - Tableau de bord - 
Surveiller votre poids — Les menus 
déroulants — Fractals — Tracé d'his¬ 
togrammes en 3D (11. 

Numéro 29 

A vos mesures — Debug pour Jasmin 
— Sortie son stéréo - The car war — 
Moniteur pour TELESTRAT - Goto 
Label - Histogrammes (21. 

Numéro 30 

Structure du TELESTRAT — Don Jean 
et Dr Agon — QVC : 80 colonnes - 
Calculs en virgule flottante — Clavier 
turbo - Histogrammes (3). 


Numéro 31 

Banc d'essai : la Citizen 120 D 
Jeu : Héliport - Nouveautés : 
Télestrat - Disk librarian - Tout 


Numéro 35 

SOS Var - L'Ula HCS 10017 : 
le soft - High-scores - Jeu : 
Yam (1) - Editeur page text 
(Télestrat) - Lexicor (Forth) - 
Programmateur d'Eprom (1) - 
Trames (2) - Programmer et 
contrôler un moteur (4) - Mo¬ 
dification de Monasm 


Les articles et programmes 
rappelés ci-dessus ne for¬ 
ment que l'essentiel des dif¬ 
férents numéros de THEO- 
RIC cités. Les essais des dif¬ 
férents logiciels, les trucs et 
astuces,etc. sontautant d'ar¬ 
guments qui devraient vous 
inciter à compléter votre col¬ 
lection de THEORIC. 


COMMANDE ANCIENS NUMEROS 

(valable jusqu'à épuisement des stocks) 


Numéros 6 à 21 - 

Numéros 11 (hors série), 22 et suivants 


30 F pièce 
25 F pièce 


Attention, numéros épuisés : 1-2-3-4-5-7-8-9-14-26 


NOM_ 

Adresse — 
Code postal 


Prénom 


Ville 


Frais de port : 7,40 F pour i revue 
10,90 F pour 2 revues 


15,40 F pour 3 et 4 revues 
22,00 F au-dessus 


Ci-joint, chèque □ bancaire, □ postal de- 

Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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CALC 


Voici enfin, un programme permet¬ 
tant la simplification, le calcul de la 
somme, la différence, le produit et 
le quotient de rationnels, autre¬ 
ment dit, de fractions. 

Ce programme servira essentielle¬ 
ment aux élèves à partir de la classe 
de 4ème ainsi qu'à leurs profes¬ 
seurs. 

Notons que l'on peut entrer, soi- 
même, les nombres sur lesquels on 
peut calculer ; cette option peut 
donc servir d'utilitaire. Le program¬ 
me admet tout nombre entier relatif 
compris entre -100 et 100 pour les 
calculs et -10000 et 10 000 pour 
les simplifications. 

En cas de choix des nombres par 
l'ordinateur, la difficulté n'intervient 
que dans la "grandeur" des nom¬ 
bres tirés au sort. 

Pour chaque exercice on dispose 
de 2 essais, le premier rapportant 2 
points, le second 1 point. Le pro¬ 
gramme attribue une note finale sur 



DANS 


LEGRAND 


La réponse au dénominateur doit 
toujours être un nombre positif. 

A noter la relative intelligence du 
programme qui à l'opération 4/6 + 
3/6 répond directement 7/6 et pas 
2/3+ 1/2 puis la réponse. 


Seul problème, il ne sait pas "simpli¬ 
fier en croix" les produits ; 2/5 x 5/3 
ne fait pas pour lui directement 2/3 
mais 10/15 dans un premier temps, 
puis quand même 2/3. 

L'auteur a reprogrammé lui-même 
njn INPUT B, voir les lignes à partir 
de 6500 ; l’intérêt majeur est d'inter¬ 
dire certaines touches qui perturbe¬ 
raient l'affichage (toutes fléchées) 
et de limiter la longueur des répon¬ 
ses à 7 caractères. 

A noter aussi la façon de calculer le 
Plus Grand Diviseur Commun (PG) 
et le Plus Petit Multiple Commun 
(PP) de deux nombres A et B aux 
lignes 4920-4960. 

Adaptations OR IC 1 : 
ligne 180 

CALL#F8DO devient CALL#F89B 
lignes 1770 ; 1853 ; 3370 ; 3470 
PRINT @ 19, 10 ; ; devient 

POKE 616, 10 : PRINT : POKE 
617,19: PRINT"?"; 


20 . 

Mais le grand intérêt de ce logiciel, 
qui fait son originalité est d’indiquer 
la solution détaillée du calcul en cas 
de réponses fausses. En cela on 
peut le considérer comme un vérita¬ 
ble logiciel d'EAO (Enseignement 
Assisté par Ordinateur). 

Exemple de réponse donnée par 
l'ordinateur : 


-14/20+ 3/-6 =-7/10+ -1/2 = 
-7/10+ -5/10 =-12/10 = -6/5 


Le programme gère également des 
erreurs ; si par exemple, à l'opéra¬ 
tion 3/8 + 1/8 on donne, au premier 
essai, comme réponse 4/8, l’ordina¬ 
teur signalera que l'on a oublié de 
simplifier (4/8 = 1/2). 

Quand la réponse est un entier na¬ 
turel,on ne vous demandera pas le 
dénominateur (qui est forcémentl) 



i 00 (60) REM ooooooooooooooooooooooooooooo 

110 (119) REM calculs dans les rationnels 

120 <35) REM ATM0S ♦ 0RIC 1 

130 (60) REM ooooooooooooooooooooooooooooo 

MO (140) REM LEGRAND José 

150 (162) REM 

160 (162) REH 

170 <60) REM ooooooooooooooooooooooooooooo 
180 (13) PING:CALLIF8D0 
190 (171) CLS:CLEAR:PAPERO:INK2:P0KE61S,2 
195 (184) F0RI=1T08:EFF*=EFF$+" * :NEXT 
200 (179) POKE4B036.0 
210 (221) F0RI=1T039:GMS=GMi+“ ’:NEXT 
220 (255) EX=1 
230 (138) GOSUB5740 
240 (18) FOR J=1 T0 10 
250 (36) 1 FOR 1=1 T0 7 
260(23) : PL0T1,3*1,I:PL0T4+J,3*1,* CALCULS DA 
NS ]*■ 
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LES 



Prix :116F pour les abonnés 
à la revue (joindre impérativement l'éti¬ 
quette abonné) : 

1 46 F pour les lecteurs non-abonnés. 


Bon de commande page 


ATTENTION ! 

Programme listé avec 
dispositif "anti-erreurs". Ne 
pas taper le nombre entre 
parenthèses situé derrière le 
numéro de ligne. Voir 
explications dans article 
"VERILIST" 


i. • U 

(241) 

IF JO 10 THEN PLOT 4+J.3*1.’ ' 

280 

(142) 

NEXT ! 

290 

’s2) 

H’JSICl .3.11-.M0 

300 

(252i 

NEXT J 

:-ij 

L » r 

<2: ùi 

PLOIà.26.* LEGRAND Jos5 'Vers.-cr Nov.8 

0 • 

320 

‘, 124 ; 

FOR J=1 TO 10 «U£IC1.3.;.13:WIT42.NE):i 

33C 

ilt5i 

PLBY0,0.3,0 

54: 

î 142; ) 

CLS 

350 

> 1401 

GGSUEdtO 

. w. 

i 57 ■ 

CLS:PRINT:PRINT "Ve-.-*e:-vous 'es rîqles 

de a 

: cui 1 

i » 

2"C 

; oS ; 

GETOflF Gt="0" THEN GOSU39sO 

280 

(26) 

CLS:GOSÜB 7 tO 

3?0 

<51; 

GCSUB54C'CLS 

400 

(TU 

G03JB1420:CLS 

413 

i : 57. 

m 

42 > 

■15?: 

; 9i:m 

422 

‘ ;9i' 

REM BRANCHEMENTS SELON OPEfirtTÏON CHOISI 

44 -2 

'157) 

REK 

453 

■157) 

REM 

460 

1149) 

IF D=1 THEN F=2 ELSE F=4 

470 

<31 î 

IF D=2 THEN U=43 G0T0510 

480 

(140) 

IF D=3 THEN Ï=45G0Î0513 

490 

(214) 

IF D=4 THEN W=120 :G0T051G 

500 

>234) 

IF 0=5 THEN W=58:G0T0510 

510 

(155! 

GOSUB3210 

520 

>73) 

IF D=J THEN GOSUB1590 ELSE GCSUB3270 

530 

(156! 

REM 

540 

>98) 

REM QUI CHOISIT LES NOMBRES ? 

550 

i 156) 

REM 

560 

<149) 

CLS 

570 
EXT 1 

(137* 

FOR 1=11 TO 13 :PL0T0,1,17:PLOT 30,1,1o; N 

580 

(234) 

PRINT:PRINT" Que voulez-vous ?" 

590 

(109) 

PRINT:PRINT"Les nombres sur lesquels vo 

us allez 

calculer 

600 

(65) 

PRINT:PRINT:PRINT" i —> Je vous les d 

oiiriE. 

» 


610 

H 

(195) 

PRINT:PRINT" 2 —> Vous me les donnez. 

620 
i) n 

(225) 

PRINT:PRINT:PRINT’Votre choix 1 ou 2 

630 

(85) 

GETUi: IF U*<“1" OR U*>"2" THEN 630 

640 

(119) 

IF Ut=“l" THEN RETURN 
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650 (134) POP :GOTO430 
660 (156) REM 
670 (156) REM 
680 (156) REM 

690 (123) PLOT11,11,"Donnez votre prJnoaT:PLOTB,1 
4,"puis, appuyé: sur <RETURN>" 

700 (151) PLOT1,14,5:PLOT1,0,3 

710 (198) INPUTNOt 

715 (181) NO$=LEFT$(NOt,12) 

720 (153) GOSUB5910 
730 (157) RETURN 
740 (156' REM 
750 (156) REM 
7t>0 ''214) REH MENU 
770 (159) REM 
780 (159) REM 

790 (84) PRINT:PR1NTCHR*(132);"Que voulez-vous f 


1080 (247) WAIT300 

1090 (82) PLOT1,10,-DiffJrence:” 

1100 (251) PLOT20,9,‘A B A-B":PLOT20,10,* - = " 

:PLOT20,11,"C C C" 

1110 (247) IÎAIT300 

1120 (223) PLOT1,14,"Produit:" 

1130 (168) PLOT20,13,"A B AxB":PLOT20.14," x = 
*:PLOT20,15,"C D CxD“ 

1140 (247) WAIT300 

1150 (122) PLOT1,18,"Quotient;":PL0T20,17,‘A B A 
D°:PLOT20,18,:_=_x_ * 

1160 (212) PLÔT20,19,"C D C B" 

1170 (167) PLOTO,26,6 
1180 (182' GOSUB5380 
1190 (151) CLS 

1200 (103) PLOTO,1,1:PL0T1,1,12 

1210 (181) PRINT: PRINTCHRt(129)CHR$(140)SPC(8);"Q 


aire ?" 

800 (240) PRINT:PRINT"1-SIMPLIF1ER t'Icriture d'u 
n rationnel “ 

810 (51) PRINT“2-CALCULER la SOMME de deux ratio 
nnels " 

820 (40) PRINT"3.DIFFERENCE. 


830 (136) PRINT“4- 

_H 

840 (239) PRINT’5- 


— PRODUIT - 

— QUOTIENT 


850 (75) PRINTlPRINT 

860 (63) PRINTCHRiC129)"Tapei le nualro choisi" 
870 (223) GETDt 

880 (71) D=VAL(D$)I IF D<1 OR D>5 THEN 870 

890 (158) G0SUB5990 

900 (51) CLS:RETURN 

910 (159) REM 

920 (159) REM 

930 (215) REM REGLES DE CALCUL 
940 (159) REM 
950 (159) REM 

960 (68) CLS: PLOT1,1,1:PLOTO,2,1:PLOT1,3,1:PLOT 
1,5,3:PLOTO,6,3:PLOT1,7,3 
970 (117) PLOT 1,9,4:PLOTO,10,4:PLOT 1,11,4:PLOT 1,1 
3,5:PLOTO,14,5:PLOT1,15,5 
980 (98) PLOT1,17,7:PLOTO,18,7:PLOT1,19,7 
990 (239) PLOTl,2,"Si«pl if :" 

1000 (175) PLOT9,l,"A x C A":PLOT9,2,".=_":PL 

OT9,3,"B x C B" 

1010 (130) PLOT18,1,"A":PLOT18,2,'-=A": PLOT18,3," 
1“ 

1020 (48) PLOT23,1,"0":PLOT23,2,*-=0":PLOT23,3," 
A" 

1030 (207) PLOT28,l,"-A A":PLOT28,2,*„=_*:PLOT28 
,3,"-B B" 

1040 (166) PLOT34,1," A -A’:PLOT34,3,"-B BVPLOT 
34,2, 

1050 (247) WAIT300 . 

1060 (224) PLOTl,6,’So««e:“ 

1070 (98) PLOT20,5,"A B A+B":PLOT20,6," 
PLOT20,7,'C C C" 



uelques remarques:" 

1220 (28) PRINT:PRINT") 1 s'appelle l'enseable de 
s RATIONNELS " 

1230 (150) WAIT200 

1240 (191) PRINT" A" 

1250 (212) PRINT’Pour le rationnel _" 

1260 (14) PRINT" B":WAIT100 

1270 (177) PRINT" A est appel) le NUMERATEUR":W 
AIT200 

1280 (253) PRINT" B est appel) le DENOMINATEUR" 
:WAIT200 

1290 (0) PRINT:PRINT”Le DENOMINATEUR ne peut ja 
mais 'tre 0“:WAIT200 

1300 (128) PRINT:PRINT"Pour faire la soaae (ou la 
diff)rence)de 2 rationnels il faut les *; 

1310 (249) PRINT*lcr ire avec le a'»e DENOMINAT 

EUR.":WAIT300 

1320 (147) PRINT:PRINT’Pensei toujours g siaplifi 
er les r)- sultats trouvJs." 

1330 (5) MAIT200 

1340 (65) PRINT:PRINT"Un conseil: les rationnels 
qui vous seront proposls ne sont pas *: 

1350 (137) PRINT:PRINT"toujours siaplifils; si»pl 
ifiez les avant de calculer." 

1360 (66) GOSUB5380:RETURN 
1370 (153) REM 
1380 (153) REM 

1390 (48) REM NIVEAU DE DIFFICULTE 
1400 (153) REM 
1410 (153) REM 

1420 (37) PRINT:PRINT"Choisissez le niveau de di 
fficult):" 

1430 (241) FORI-1T06:PRINT:NEXT 

1440 (125) PRINT:PRINTCHR$(134)"1-> DJbutant" 

1450 (40) PRINT:PRINTCHR<(135)“2-> L)g(re exp 

Jrience" 

1460 (156) PRINT:PRINTCHRt(131)"3-> Confira)* 

1470 (148) PRINT:PRINTCHR$(129)"4-—> Dou)* 

1480 (224) GETCt 

1490 (36) IF Ct=*l." THEN KK=4 : IF D=1 THEN KK=10 
1500 (119) IF Ct="2" THEN KK=10:IF D=1 THEN KK=50 

1510 (77) IF C$=*3* THEN KK=50:IF D=1 THEN KK=20 
















0 


T 


1520 (150) 1F C«="4* THEN KK=100:IF DM THEN KK= 1 
000 

1530 (1521 RETURN 
1570 (169) GOTO1480 
1580 (152' REH 
1590 (152) REH 

1600 (207' REM EXERCICES SUR SIMPLIFICATION 
1610 (152) REM 
1620 (152' REM 

1630 (234) IF U»=*2* THEN GOSUB3670 ELSE GOSUB253 

0 

1640 (62) C=VAL(N*(1)):E=VAL(N*(2)):GOSUB2950 
1650 (111) IF ABS(PG)M AND U»=*l* THEN 1630 
1660 (5) IF PGM THEN PLOT2,18,"On ne peut plus 
siaplif ter*:HAIT300:GOT01630 
1670 (143) PLOT4.1 ,'Donnei Denture siapiifiîe 
de 

1690 (125) PLOT15,3,NI<1):PL0T15,4,NI(1) 

1700 (150) PLOT15.5,*_" : PLOT 15,6.”_’ : PLOT 2 2 

,5,‘_* :PLOT22,6, *_* 

1710 (91) PLOT20,5,* s ":PLOT20,6,* ï “ 

1720 (217) PLOT15,7,N*(2): PLOT 15,8,N< < 2) 

1730 (185) IF E=0 THEN GOSUB2530 
1740 (253) CL*=KEY« 

1750 (60) PLOT22,3,EFF*:PLOT22,4,EFF*:PLOT22,7,E 
FF*:PLOT22,8,EFF< 

1760 (137) PLOT1.10,‘Votre NUMERATEUR 
(RETURN) 1 

1770 (113) PRINTei9,10; , ’V 
1780 (250) IF E1M THEN PLOT22.5.EFF»;PLOT22,6,EF 
F4 

1785 (5) LP=5:GOSUB6620:NU*=BN* 

1790 (62) PLOT22,3,NU*:PLOT22,4,NU*:NU=VAL(NU*) 
1300 (221) PLOT1,10,GM* 

1810 (250) CL*=KEY« 

1820 (191) IFE1MTHENFORI=3T07:PLOT22,I,EFF*:NEXT 
: PLOT22,5, NU* : PLOT22,6, NU» : DEM 
1830 (107) IFE1=1 THENFOR I=3T04: PLOT32,1, * A * : PLOT3 
2,1*2,*. = A*:PLOT32,IM,*l*:NEXT 
1840 (Î46) IF E1M THEN 1880 
1850 (107) PLOT1,10,'Votre DENOMINATEUR 
(RETURN)* 

1853 (186) PRINT019,10:*?*; 

1855 (78) LP=5:GOSUB6620: DE*=BN* 

1860 (205) PLOT22,7,DE*:PLOT22,8,DE*:DE=VAL(DE*) 
1870 (221) PLOT1,10,GN* 

1880 (3) SS=SGN(NU*DE):TT=SGN(C1*E1): IF SGN(DE) 
=-l THEN GOSUB199û:GOTO1740 
1890 (193) IFSSOTT OR ABS(NU)OABS(Cl) OR ABSIDE 
)<)ABS(E1ITHENGOSUB1990:GOTO1740 
1900 (182) GOSUB2140 
1910 (82) N=N*2-ES:ES=0:GOSUB2250 
1920 (43) IF K=79 THEN EX=EXM:CLS:GOSUB3210:GOT 
01630 

1930 (242) 1F K=78 THEN GOSUB2360:RUN 
1940 (155) REH 
1950 (155) REM 

1960 (151) REM LE RESULTAT EST FAUX 


1970 (1551 REM 
1980 (155) REM 

1990 (194) PL0T2,10,"C'est faux ...*:ES=ESM 
2000 (124) PLOT1,15,5:SHOOT 
2010 (0) IF NU*E1=DE*C1 AND ESM THEN GOSUB3090 
1 RETURN 

2020 (100) 1F ESM AND DM THEN WAIT300:ES=0:GOSU 
B5030: POP :GOSUB2250: GOTO1920 
2030 (5) IF ESM THEN WA IT300 : ES=0 : GOSUB3890 : PO 
P :GOSUB2250:GOTO3560 

2040 (9) PLOT2,15,’Recoaaencez . . .MIAIÎ20Û 

2050 (24) F0RI=3T08:PL0T29,I,EFF*:NEXT 
2060 (196) PLOT1,10,GHf 
2070 (197) PLOT1,15,GM * 

2080 (155) RETURN 
2090 (154) REM 
2100 (154) REM 

2110 MSI) REM LE RESULTAT EST JUSTE 
2120 (154) REM 
2130 (154) REM 

2140 (33) PLOT2,10,*Vous avei trouv) .*:PING 
2150 (186) PLOTO.il ,CHR*(16)+CHR*(7) 

2160 (174) PLOT1,12.3 

2170 (114) NUSIC1,3,3,10:WAIT80:HUSIC1,3,5,10:WAI 
T80:MUSI31,3,12,10:WAIT160 
2180 (250) PLAYO,0,0,0 
2190 (155) RETURN 
2200 (154) REM 
2210 (154) REM 

2220 (6) REM UN NOUVEL EXERCICE ? 

2230 i154) REM 
2240 (154) REM 

2250 (107) PLOT1,15,"On recoiaence ’VPING 
2260 (225) GETCt 
2270 (45) K=ASC(C4) 

2280 (122) IF K079 AND K078 THEN 2260 
2290 (197) PLOT1,15,GM* 

2300 (155) RETURN 
2310 t149) REM 
2320 (149) REM 

2330 (249; REM RESULTATS D'ENSEMBLE 
2340 (149) REM 
2350 (149) REM 

2360 (137) CLS:PLOTO,4,1:PLOTO,7,1:PLOTO,5,5:PLOT 
0,6,7;PLOT1,5,10:PLOT1,6,10 
2370 (172) PLOT15,2,"RESULTATS*:PLOTO,2,3 
2380 (72) FORIMT037;PLOTI,4,*-*:NEXT 
2390 (93) B2MNT((38-LENINO*))/2):PLOTB2,5,NO*:P 
LOTB2,6,NO* 

2400 (15) FORIMT037:PLOT 1,7,*-* :NEXT 
2410 (102) FORIMTO10:PRINT:NEXT 
2420 (87) PRINT*No«bre d'exercices :*:EX:PRINT 
2430 (22) PRINT'Noebre de point(s) :*;N:*sur*:2* 
EX:PRINT:PRINT 

2440 (7) PRINTCHR*(4)‘CHR*(27)J*N Note 

:MNT((10*N)/EX):* sur 20*:CHR»(4) 

2450 (74) RESTORE;FORIMT093:READA:NEXT:GOSUB599 

0 

2460 (253) GOSUB5380 
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2470 (61) CLS:RETURN 

2480 (149) REM 

2490 (149) REM 

2500 (110) REM CHOIX DES NOMBRES ET SIGNES 

2510 (149) REM 

2520 (149) REM 

2530 (232) FOR 1=1 TO F 

2540 (24) N(I) = 1 NT(RND( 1 )tKK) + l:S(I) = INT(RND< 1 )i 

2)+1 

2550 (210) NEXT I 

2560 (2) IF N(4) = l ftND N(2)=l THEN 2530 
2570 (117) FOR 1=1 TO F 

2580 (201) IF S(I)=1 THEN N«(I)=MID*(STR*(N(I)),2 
) ELSE N*(I)="-*+MID*(STR*(H(1)),2) 

2590 (161) NEXT 

2600 (149) RETURN 

2610 (148) REM 

2620 (1481 REM 

2630 (65) REM CALCULS 

2640 (143) REM 

2650 (148) REM 

2660 (153) X=VAL(N*(1))*VAL(N*(4));Y=VAL(N*(2))*V 

AL(N*(3)) 

2670 (124) Z=VAL(N*(2))*VAL(Ni(4)):T=VAL(N$(l))tV 
AL(N♦(3 ) ) 

2680 (149! RETURN 
2690 (148) REM 
2700 (148) REM 

2710 (119) REM AFFICHAGE ECRAN 
2720 (148) REM 
2730 (148) REM 

2740 (246) PRINTSPC(9)"Donnei le rationnel." 

2750 (25) IF N$(2)=“l* OR N$(4)="l" THEN 2810 
2760 (197) PLOT9,3,N*(1):PLOT19,3,N*(3)1PL0T9,4,N 
*(1): PLOT19,4,N*(3) 

2770 (3) PLOT9,5,"__”:PLOT16,5,CHR*(W):PLOTI9 

,5,"_“:PLOT26,5,"=" 

2780 (151) PL0T9.6,_*:PLOT16,6,CHR$(«)(PL0T19 

,6,'_‘:PLOT26,6,"=" 

2790 (57) PLOT9,7,N<(2) :PLOT19,7,N*(4) :PL0T9,8,N 
«(2): PLOT19,8,N*(4) 

2800 (149) RETURN 

2810 (224) PLOTO,5,5;PLOTO,6,5:1F N(4)=l THEN 286 

0 

2820 (205) PLOT9,5,Ni<1):PLOT9,6,N4(1):PLOT16,5,C 
HR*(W): PLOT16,6,CHR*(¥) 

2830 (102) PLOT19,3,N<(3):PLOT19,4,N4(3): PLOT19,5 

,"_":PLOT19,6,’_* 

2840 (51) PLOT19,7,N*(4):PL0T19,8,N*(4);PLOT26,5 
,*=':PLOT26,6,"=" 

2850 (150) RETURN 

2860 (96) PLOT9,3,NtI1):PLOT9,4,N*(1):PLOT9,5,"_ 
. ":PLOT9,6, 


2910 (151) REM 

2920 (3) REM SIMPLIFICATION DU RESULTAT 
2930 (151) REM 
2940 (151) REM 

2950 (21) C1=C:E1=E:C2=C:E2=E 

2960 (49) IF E=0 THEN PG=C:GOT03010 

2970 (55) RE=C-1NT(C/E)tE 

2980 (124) C=E:E=RE 

2990 (164) GOTO2960 

3000 (60) PG=I 

3010 (84) C1=C1/ABS(PG):E1=E1/ABS(PG);C=C2:E=E2 

3020 (100) IF El<0 THEN E1=-E1:CI=-CI 

3030 (150) RETURN 

3040 (151) REM 

3050 (151) REM 

3060 (153) REM JUSTE MAIS PAS SIMPLIFIE 
3070 (151) REM 
3080 (150) REM 
3090 (150) REM 

3095 (226) PLOT2,10,EFF*+EFF* 

3100 (242) PL0T2,21 ,CHR* ( 10 )+“S i «p 1 if lez l'Jcritu 
re 

3110 (241) PLOT2,22,CHR*(10)+”Smpl if iez l')critu 
re 

3120 (127) SAP :WAIT500 

3130 (188) FOR 1=21 TO 22:PLOT2,I,GH»:NEXT 

3140 (84) FORI=3T08:PLOT29,I,EFF*;NEXT 

3150 (15D RETURN 

3160 (150) REM 

3170 (150) REM 

3180 (225) REM COULEURS ECRAN 
3190 (150) REM 
3200 (150) REM 

3210 (126) FORI=3TOS:PLOTO,1,5:PLOT1,1,10:NEXT: PL 
OTO,5,1 :PLOTO,6,1:RETURN 
3220 (150) REM 
3230 (150) REM 

3240 (210) REM PROGRAMME PRINCIPAL 
3250 (150) REM 
3260 (150) REM 

3270 (111) IF U<=’2" THEN GOSUB3670:GOSUB2660:GOT 
03290 

3280 (16) G0SUB2530:GOSUB266Û 

3290 (137) GOSUB2740 

3300 (146) GOSUB3580 

3310 (136) GOSUB2950 

3320 (243) PLOTO,11,0:PLOTO,10,6 

3330 (186) PING 

3340 (236) FORI=1T09:PRINT:NEXT 
3350 (226) PLOT1,10,"Votre NUMERATEUR: 

<RETURN>' 

3360 (28) CL$=KEY< 

3370 (132) PRINTP19,10:"?"; 

3380 (70) LP=5:GOSUB6620:NU*=BN* 

3385 (166) PLOT29,3,NU*:PLOT29,4,NU*:PLOT29,5,“ 

:PLOT29,6,"__" 

3390 (46) : ’ 

3400 (251) PLOT1,10,GH* 

3410 (106) HU=VAL(NU*) 


2870 (67) PLOT9,7,N*(2) :PLOT9,8,N<(2) :PLOT16,5,C 
HR*(¥): PLOT16,6,CHR* t ¥) 

2880 (151) PLOT19,5,N*(3): PLOT19,6,N* < 3):PLOT26,5 
,"=":PLOT26,6,"=" 

2890 (150) RETURN 
2900 (151) REM 
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3420 (165) IFE1=1THENFORI=3T06:PLOT29,I,EFFI:NEXT 
: PLOT29,5,NUI :PLOT29,6,NUI:DE=1 
3430 (231) IF El=l THEN 3520 
3440 1186) PING 

3450 (81) PLOT1,10,'Votre DENOMINATEUR 
<RETURN>" 

3460 (28) CL«=KEY« 

3470 (132) PRINTP19,10: 

3480 (60) LP=5:GOSUB6620:DEI=BNI 
3490 (168) IF VAL(DE$)=0 THEN ZAP;ZAP:ZAP:PLOT20, 
10,EFFi:GOTO3470 

3500 (5) PLOT29,7,DE$:PLOT29,8.DE$:DE=VAL(DE$) 

3510 (251) ■PLOTl.lO.GHI 

3520 (171 ‘ SS=£GN(NU4DE) ;TT=SGN(CUE1 ) 

3530 (70) IFSSOTT OR ABSiNUX>ABS(C1 ) OR ABSIDE 
)<>ABS(E1)THENGOSUB1990 :GOTO3350 
3540 (236) GOSUB2140 
3550 (104) N=N+2-ES:ES=0:GOSUB2250 
3560 (179) IF K=79 THEN EX=EX+1:CLS:GOSUB3210:GOS 
UB3270 

3570 «44) IF K=78 THEN GOSUB2360:RUN 
3580 (85) IF W=43 THEN C=X+Y:E=Z:RETURN 
3590 (191) IF «=45 THEN C=X-Y:E=Z:RETURN 
3600 (206) IF «=120 THEN C=T:E=Z:RETURN 
3610 (139) IF ¥=58 THEN C=X E=Y:RETURN 
3620 (144) REM 
3630 U44) REM 

3640 (253) REM VOUS ME DONNEZ LES NOMBRES 
3650 (144) REM 
3660 1144) REM 

3e?(> (223) CLS : PR I NT ; PR I NT “ J e r/accepte que les e 
ntiers relatifs' 

3680 (36) PLOT 1,1.3:PLOT1,3,3:PLOT1,6,3:PLOT 1,8, 

1 : PLOT1,10,1:PLOT1,14,5:PLOT1,16,5 

3685 (151) IF D=1 THEN LIM«=”-100000 ET 100000":L 
p=4:LI=99999 

3686 (161) IF DOl THEN LIM$=“-100 et 100*:LP=1 :L 
1=99 

3690 (42) PRINT:PRINT"NON NULS entre '+LIM! 

3700 (77) PRINT:PRINT PRINT'Donnei-aoi S.V.P ( 
puis RETURN)' 

3710 (194) 1=1 

3720 (82) PRINT:PRINT" * NUMERATEUR du 1er no«br 
e? '; :GOSUB6620: N»(1)=BNI:GOSUB3300 
3730 (213) PRINT:PRINT" * DENOMINATEUR du 1er noa 
bre 9 '; :GOSUB6620: NI(2 >=BNI:GOSUB3800 
3740 (232) IF D=1 THEN 3780 
3750 (38) PRINT:PRINT 

3760 (196' PRINT.PRINT’ t NUMERATEUR du 2nd noabr 
e? V :GOSUB6620: NI(3)=BNI:GOSUB3800 
3770 (179) PRINT:PRINT" t DENOMINATEUR du 2nd noa 
bre’ * ; :GOSUB6620: NI(4)=BNI:GOSUB3800 
3780 (60) CLS:PAPERO:GOSUB3210 
3790 (145) RETURN 
3800 (52) N(I)=ABS(VAL(NI(I))) 

3805 (81) IL=-3720t(1=1)-37301(1=2)-37601(1=3)-3 
7701(1=4) 

3810 (255) IF N(I)=0 THEN EXPLODE :POP:GOTO IL 
3820 (17) IFN(I)>LI THEN ZAP:ZAP:POP:GOTO IL 


3830 (68) 1=1+1 

3840 (146) RETURN 

3850 (147) REM 

3860 (29) REM CORRECTION 

3870 (147) REM 

3880 (147) REM 

3890 (57) PLOTO,13,10:PLOTO.14,10:PLOT5.13,'Corr 
ec1 1 on': PLOTS,14,’Correction' 

3900 (116) PLOT1,13,3:PLOT1,14,3 
3910 (135) IF D=1 THEN 5030 
3920 (109) A=LEN(NI(D) :B=LEN(NI(2)) :GOSUB5000:L1 
=L 

3930 (234) PL0T1,16,NI(1): PLOT1,18,N$(2):F0RI=1T0 
L1 : PLOT1,17,“_":NEXT 

3940 (177) PLOTL1 + 1,17,CHRIl«):A=LEN<NI(3)).B=LEN 
(NI(4)):GOSUB5000:L2=L 

3950 (9) PL0TL1+2,16,NII3):PL0TL1+2,18,NI(4) :FO 

RI=1T0L2:PL0TL1+1+1,17, , _‘:NEXT 
3960 (128) PL0TL1+L2+2,Î7,'=' 

3970 (86) L3=L1+L2+3 
3980 (139' WAIT200 
3990 (147) REH 

4000 (194) REM INUTILE MEME DENOMINATEUR POUR x E 
T : 

4010 (147) REM 

4020 (231) IF ¥=58 THEN GOSUB5510:L3=L1+L2+L1+L2+ 
5 

4030 (147) REM 

4040 (60) REM DEJA LE MEME DENOMINATEUR 
4050 (147) REM 

4060 (224) IF NI(2)=NI<4) AND (¥=43 OR ¥=45) THEN 
L9=L3 

4070 (242) IF NI2)>0 THEN PPI=MIDI(STRI(N(2)),2) 
4080 (41) IF N(2)<0 THEN PPI=STRI(N(2)) 

4090 (10) IF Ni(2)=NI(4) AND «=43 THEN NF=VAL(N! 

(1))+VAL(NI(3)):GOTO4680 

4100 (70) IF NI(2)=NI(4) AND ¥=45 THEN NF=VAL(NI 
(1))-VAL(Nt(3)):GOTO4680 
4110 (146) REM 

4120 (185) REM SIMPLIF. DES RATIONNELS 
4130 (146) REH 

4140 (218) A=N(1):B=N(2):GOSUB4900 

4150 (80) NSI 1)=N(1)/PG:NS(2)=N(2)/PG 

4160 (198) A=N(3):B=N(4):GOSUB4900 

4170 (240) NS ( 3)=N(3)/PG : NS(4)=N(4)/PG 

4180 (118) FORI=2T04STEP2: NSI(I)=MIDI(STR!(NS(I)) 

,2):NEXT 

4190 111) F0RI=1T03STEP2 
4200 (47) IFSGN(VAL(NI(I))<VAL(NI(1+1)))=1THENNS 
l(Ii=MIDI(STRI(NS(I)),2):GOT04220 
4210 (254) NSI(I)='-'+MIDI(STRI(NS(I)),2) 

4220 (235) NEXT I 

4230 (173) IF NSI 1)=N(1) AND NS(3)=N(3) THEN L4=L 
3 :GOTO4420 

4240 (233) A=LEN(NSI( 1 ) ) :B=LEN(NSI(2) ) :GOSUB5000 
L5=L 

4250 (246) PLOTL3,16.NSI(I) :PLOTL3,18,NSI(2) :FORI 
=OTOL5-1:PLOTL3+I,17,'_':NEXT 
4260 (218) PLOTL3+L5,î7,CHRI(¥):PLOTL3+L5+1,16,NS 
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t!3):PL0TL3*L5+l,18,NS»<4) 

4270 (218) A=LENiNS*<3)):B=LEN(NS*(4)>:GOSUB5000: 
L6=L 

4280 (22) FORI=OTOL6-1 :PLOTL3+L5+1 ♦J,17,’ ’:NEXT 
4290 (127) PLOTL3+L5+L6+1,17,"=■ 

4300 (225) L4=L3+L5+L6+2 
4310 (138) VAIT200 

4320 ( 193J 1F NSi (2> ONS* (4 ) OR ¥>45 THEN 4420 
4330 (146) REM 

4340 (42) REM UNE FOIS SIMPLIFIES LES RATIONNELS 
ONT LE MEME DENOMINATEUR 
4350 (146) REM 
4360 (195) L9=L4 

4370 ( 173• IF W=43 THEN NF=VAL(NS»(1))+VAL(NS»(3) 

) 

4380 (212) IF «=45 THEN NF=VAL(NS<(I))-VAL(NS«(3) 

) 

4390 (168) PP*=MID*(STR*(NS(2>),2) 

4400 (139) GOTO4680 
4410 (141) REM 

4420 (21) REM MISE AU MEME DENOMINATEUR 
4430 (141) REH 

4440 (242) IF ¥=120 OR ¥=58 THEN L9=L4:GO?O4640 
4450 (35) A=NS(2):B=NS(4):GOSUB4900 
4460 (114) NC(1 )=NS( 1UPP/NS(2):NG(3)=NS(3)CPP/NS 
(4) 

4470 (39) PP*=MID*(STR*(PP),2) 

4480 (199) PLOT2,22,PP*+“ est le PPCM de'+STRMNS 
(2)>+* et’+STR*(NS(4)) 

4490 (68) F0RI=1T03STEP2 
4500 (123) IFSGN(VAL(N«(I))tVAL(N*(I+l)))=lTH£NNC 
*(I)=HID*(STR*(NC(I)),2):GOT04520 
4510 (153) NC*(I)="--+MID*(STR*(NC(I)),2) 

4520 (136) NEXT 

4530 (15ô) A=LEN(NC*(1)):B=LEN(PP*):GOSUB5000:L7= 
L 

4540 (228) PLOTL4,16,NC*(1):PLOTL4,18,PP*:FORI=OT 
OL7-1:PL0TL4+I,17,'_”:NEXT 
4550 (68) PLOTL4+L7,17,CHR*(¥) :PLOTL4+L7+1,16,NO 
♦ ( 3 ) : PLOTL4+L7+1,18, PP* 

4560 (99) A=LEN(PP*):B=LEN(NC*(3)):GOSUB5000:L8= 

T 

4570 (70) FORI=OTOL8-1 :PLOTL4 +L7*1*I, 17,* VNEXT 
4580 (65) PLOTL4+L7+L8+1,17,“=" 

4590 (137) ¥AIT200 
4600 (196) L9=L4+L7+L8+2 
4610 (140) REM 

4620 (26) REM REGLES DE CALCUL 
4630 (140i REM 

4640 (62) 1F ¥=43 THEN NF=VAL(NC*<1))+VAL(NC*(3) 

) 

4650 (187) IF ¥=45 THEN NF=VAL(NC*(1))-VAL(NC*(3) 

) 

4660 (39) IF ¥=120 THEN NF=VAL(NS«(1)UVAL(NS*(3 
)):PP*=NID*(STR«(NS(2)*NS(4)),2) 

4670 (70) 1F ¥=58 THEN NF=VAL(NS*(1))*VAL(NS*(4) 

):PP*=MID*(STR*(NS(2)*HS(3)),2) 

4680 (32) NF*=STR*(NF):IF SGN<VAL(NF*>)0-1 THEN 
NF*=HID*(NF*,2) 


4690 (45) PL0TL9,16.NF*;PLOTL9,18,PP* 

4700 (123) A=LEN(NF*) :B=LEN(PP*) :GOSUB5000:L1 =L 
4710 (253) FORI=0T0L1-1 :PLOTL9+1,17,"*:NEXT 
4720 (136) ¥AIÎ200 
4730 (140) REM 

4740 (I60i REM RESULTAT FINAL 
4750 (140 REM 

4760(87' IF 00=1 THEN QO=0:¥=58 
4770 ( 161 1F VALlPP*)=El AND E101 THEN GOSUB538 
0 :RETURN 

4780 (156) IF VAL(PP»)=1 THEN PL0TL9+L1,17,*="+ST 
R*(Cl):GOSUB5380'RETURN 
4790 (128) E1*=HID«(STR*(E1),2) 

4800 (44) IF Cl<0 THEN C1*=STR*(C1) ELSE C1»=MID 
I(STR*(C1),2) 

4310 (56) A=LEN(Cl *):B=LEN(El *):GOSUB5000.L2=L 
4820 (153) PL0TL9+L1,17,"=" 

4830 (88) PL0TL9+L1+1,16,C1»(PLOTL9+L1+1,18,El* 
4840 (222 j FORI=0T0L2-1 :PL0TL9+L1 +1 ♦ 1,17,VNEXT 
4850 (105) PO»=STR*(ABS(VAL(MID*(STR*(NF),2)))) 
4860 (186) PLOT2,24,"Le PGCD de "+PPI+" et"+PO»+" 
est’+STR$(VAL(PP*)/El) 

4870 (165) IF El=l THEN PL0TL9+L1+L2*1,17,’=“+Cl* 

4380 (20) COSUB5380:RETURN 

4890 (143) REM 

4900 (204) REM PGCD PPCM 

4910 (143» REM 

4920 U19i p=AtB 

4930 (83) IF A<B THEN T=A:A=B:B=T 
4940 (168) Q2=INT(A/B):Rl=A-BtQ2 
4950 (68) IF RI=0 THEN PG=B:PP=P/B:RETURN 
4960 (97) A=B:B=R1:GOT04940 
4970 (143) REM 

4980 (39) REM LONGUEUR DES RATIONNELS 
4990 (143) REM 

5000 (103) IF A>B THEN L=A:RETURN 
5010 (116) L=B:RETURN 
5020 (143) REM 

5030 (105) REM SOLUTION SIMPLIFICATION 
5040 (143) REM 

5050 (246) FORI=13T015:PLOT1,I,3:PLOTO,I+3,2:NEXT 
;PLOTO,24,2 

5060 (150) PLOT3,16,N*(1):PLOT3,18,N*(2) 

5070 (208) F0RI=1T02:A(I)=LEN(N*(I)):NEXT:IF A(1) 
>A(2) THEN A=A(1) ELSE A=A(2) 

5080 (135) FORI=OTOA-1 :PLOT3+1,17NEXT 
5090 (181) PLOT3+A,17,"=":¥AIT200 
5100 (181) FORI=1T02: B*(I)=STR*(ABS(PG))+" x’+STR 
*(VAL(N*(I))/ABS(PG)) 

5110 (165) F0RJ=1T02:M<(J)=STR*(ABS(VAL(N*(J)))): 
NEXT J 

5120 (211) PLOT1,24,"Le PGCD de'+HKl)*" ef+ Ht< 
2) +" est"+STR*(ABS(PG)) 

5130 (209) PLOT4+A,14+2tI,B*(I) 

5140 (199) NEXTI 

5150 (6) IF LEN(B*(1))>LEN<B*(2)) THEN B=LEN(B* 
(D) ELSE B=LEN(Bt(2)) 

5160 (30) FORK=1TOB-1 : PLOT4+A+K,17,* _ * :NEXTK 
5170 (84) PLOT4+A+B,17,"=■ 




5180 (166) NAIT200 

5P0 (187) F0RI=1T02:CI( I)=STRf(VALINt(I))/ABSlPG 
)):NEXTI 

5200 (12) 1F SGN(VAL(C«(2))î=-l THEN 5210 ELSE 5 
240 

5210 (228) C*(2)=HICKCi(2>,2) 

5220 (49) IF SGN(VAL(C*(l)))=-1 THEN CI(1)=HID*< 
STRi((-1 itVAL'CK 1))),2):GOTO5250 
5230 063) C*( 1 )='-"+MID*(Cl( 1 ),2> :GOTO5250 
5240 '32) C*(2)=HIDI(C»<2>,2):JF SGNiVAL(CKl))) 
=0 THEN Cl<1)~niOI(C6(l),2) 

5250 (19) FORI=1T02:PL0T6+A+B,14+241,CKI):NEXTI 
5260 (230> IF LEN(CI(1))>LEN(C$(2)) THEN C=LEN<C$ 
(U) ELSE C=LEN(CI(2) ) 

5270 (235) FORK=1 TOC :PLOT5+A+B+K,17,*_*:NEXT 
5280 (57) IF Cl(2)="1“ THEN PLOTo+A+B+C,17,■= *+ 
Cl(l) 

52«0 (166) GGSUB5380 

5300 132) FOR 1=13T024 : PLOT 1,1, GUI: NEXT 

5310 (143i RETURN 

5330 (142 1 REM 

5340 (142) REH 

5350 (107) REH BOUCLE D'ATTENTE 

5360 (142) REH 

5370 (142) REH 

5380 (183) CLI=KEÏI:CLI="" 

5390 (213) FORI = 1T034:CLI=CLI+" MOT 
5400 (49) B«=CL»+"APPUYEZ SUR UNE TOUCHE POUR C0 
NTINUER ■ 

5410 (139) 1=1 
5420 (1881 1=1 
5430 (151) REPEAT 
5440 (198) PLOTO,26,J 

5450 (251) PLOT1,26,HIDI(BI,1,38);WAIT15:1 = 1+1 : IF 
I> LEN(Bl)THEN1=1 :J=J+1:IF1=7THENJ=1 


5o70 (136) REH 
5680 (136) REH 

5690 '35) DATA46824,15,24,40,40,41,24.15,0 

5700 (67) DATA46832,0,32,16,16.32,32,16,0 

5710 (58) DATA46840,0,0,0,63,0,0,0,0 

5720 (41) DATA47064,16,8,28,34,62,32.30,0 

5730 (173) DATA47080,4,8,28,34,62,32,30,0 

5740 (159) DATA45344,28,34,28,34,62,32,30,0 

5750 <254) DATA46592,8.4,28,2,30,34,30,0 

5760 (40) FOR 1=1 TO 7 

5770 (I97i READ AD 

5730 (183) : FOR J=0 TO 7 

57°0 (224) : READ A 

5800 (132) ' POKE AD*J , A 

5810 <203) : NEXT J 

5S20 i) NEXT I 

5530 <76 POKE46443,30:POKE4657Q,30:POKE46572,30 

5840 (44) PCKE46425,0.POKE4o427,28!POKE46429,0 
5350 (137) RETURN 
586C (136< REH 

5870 (125) REM GARE AU GORILLE 
5880 (136) REH 

5890 -236) DATA4,1,10,4,5,10,4,8,10.5,1,40,4,8.40 
.4,1,40,3,8,10,3,10,10,3,12,11 
5900 (226) DATA4.1,10 

5910 (242/ F0RI=1T010:READA.B,C:MUSIC1.A,B,10;NAI 
TC :NEXTT:PLAYO,0,0,0 
5920 (138) RETURN 
5930 (139) REH 

5940 (250) REH ELLE HE FAIT POUETTE POUETTE 
5950 (139) REM 

5960 (20) DATA4,5,1,4,6,1,4,8,3,5,5,1,1,1,0,5,5, 
1,5,1,1,4,5,1,4,6,1,4,8,3 
5970 (40) DATAS,5,1,1,1,0,5,5.1,5,1,1,4,5,1,4,8. 
1,4,6,3,5,3,1,1,1,0,5,3,1 


5460 (106) 
5470 (175) 
5480 (136) 
5490 (137) 
5500 (137) 
5510 (6) 
5520 <137) 
5530 (137) 
5540 (239) 
5550 (238) 
( 2 ) 

5560 (149) 
5570 (69) 
5580 (129) 
,18,Nt(3) 
5590 (0) 
EXT 

5600 (174) 
5610 (178) 
5620 (171) 
5630 (121) 
5640 (136) 
5650 (136) 
5660 (128) 


UNTILKEYIO"* 

FOR 1 = 13T026 : PLOT 1,1 ,GHI : NEXT 

RETURN 

REM 

REH 

REM SOLUTION QUOTIENT 
REH 
REM 
00=1 

PLOTL1+L2+3,16.NM1 ) :PL0TL1 +L2+3,18 ,NI 

PLOTL1+L1+L2+3,17,-x- 

FORI=OTOL1-1:PLOTL1+L2+3+I,17,"_":NEXT 

PLOTL1+L1+L2+4,16, NI ( 4 ) : PLOTL1+L1*L2+4 

FORI=OTOL2-1:PL0TL1+L1+L2*4*I,17," ":N 


PLOTL1+L1+L2+L2+4,17,“=":WAIT200 

A*=NI(3):NI(3)=N1(4):NI(4)=AI 

A=N(3):N(3)=N(4):N(4)=A 

¥=120:RETURN 

REH 

REM 

REM TRANSFORMATION DE CARACTERES 


5980 (33) DATA4,12,1.4,8,1,5,3,1,5,1,6 
5990 (67) FORI=1T024:READA,B,C:MUSIC1,A,B.10 NAI 
T20*C NEXT:PLAYO,0,0,0 
6000 (138) RETURN 
o490 '133) REH 

6500 (164) REH REMPLACE LE INPUT 

6510 (133/ REH 

6620 (223) ANI="‘:BNI="“ 

6640 (166) :REPEAT 
t.650 (168) : GETANI 

6660 (120) IF ANI=CHRI( 13) THEN 6760 
6670 (55) : IF (AN»^0* OR ANI>"9*) AND AN40" 
AND ANIOCHRK127) THEN 6650 



6680 (123) 
6690 (189) 
6700 (138) 
6710 (43) 
6720 (44) 
6730 (44) 
6740 (64) 
6750 (162) 
6755 (50) 
6760 (228) 


L=LEN(BN!) 

IF ANIOCHRK 127/ THEN 6740 
IF L=0 THEN 6650 
BNI=LEFTI(BN4,L-1) 
PRINTCHRI(8)♦* "♦CHR4I8); 
GOTO 6650 
BNI=BN$*ANI 
PRINTANI; 

IF L>LP THEN ANI=CHRI(13) 
UNTIL ANI=CHRI(13) 


6780 (133) RETURN< 
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MODIFDOS 


André GUICHARDON 


L 


e lecteur de disquettes Jasmin utilise la page 4 de la mé¬ 
moire (adresses # 400 à # 4FF) ce qui, dans certains cas 
lest très gênant. Voici un petit programme qui va remédier 
à ce problème. 


I 


Ce programme permet de trans¬ 
férer la page 4 utilisée par le DOS à 
une adresse différente. Il est pré¬ 
senté sous forme d'un programme 
BASIC chargé de la mise en place 
du langage machine et de recueillir 
l'adresse haute de la destination du 
DOS. Il peut être lancé par le boo- 
ting sans rien modifier, car la partie 
langage machine comporte déjà les 
instructions permettant de réinitia¬ 
liser les adresses #1B et #1C. Le 
langage machine peut s'utiliser 
seul. Un seul poke #9934, adresse 
haute suffit pour programmer la nou¬ 
velle destination. Le programme as¬ 
surant lui-même les corrections des 
adresses concernées. Il est pro¬ 
grammé à l’origine pour transférer le 
DOS à l'adresse #B800. Son im¬ 
plantation à une autre adresse peut 
être réalisée en modifiant seule¬ 
ment quelques pointeurs aux adres¬ 
ses suivantes : #9916 et #9918 qui 
pointent sur la table des adresses à 
modifier 

#9940/41 pointant sur l'adresse du 
transfert 

#9943/44 contient l’adresse à 
corriger par le programme. 

Le langage machine assure les 
fonctions suivantes : 

- Passage en overtay 

- Réinitialisation pour lancement 
après le booting, modification des 
adresses du DOS et de la fonction ! 

- Transfert de la page 4 

- Remplissage de la page 4 avec 
des U - Sortie de l'overlay. 

#9900 Début du langage machine 
#9901/990B 
Passage en overlay 
#990C/9913 


Instruction pour lancement par le 

booting 

#9915/99 IC 

Transfert en 00/01 de l'adresse de 
début de la table d'adresses du 
DOS à modifier 
#991 F/19932 



Transfert en 02/03 de l'adresse à 
modifier prise dans la table, et incré¬ 
mentations pour transferts suivants 
#9933/9939 

Modification du DOS suivant adres¬ 
se placée en 02/03 


#993A/993D 

Test si plus d’adresses dans la table 
#993F/9944 

Corrige l'adresse de destination du 
DOS 

#9945/994F 

Transfert de la page 4 vers sa nou¬ 
velle adresse 
#9951/9958 

Réinitialisation de la page 4 
#995A/9965 
Sortie overlay 
#9969/9A98 

Table contenant les adresses hau¬ 
tes à modifier, (seuls les 2 premiers 
zéros sont obligatoires pour servir 
de butée, les suivants peuvent 
être supprimés). 

Il aurait également été plus élégant 
de placer la modification du ! à un 
emplacement différent, mais il fallait 
alors recharger l’accumulateur avec 
la nouvelle valeur. 


10 

(166) 

: REM i 

20 

(6) 

:REM 

30 

(99) 

: REM 

40 

(133) 

:REM 

50 

(10) 

: REH 

60 

(6) 

: REM 

70 

(166) 

:REH 

80 

(165) 

:REM 

90 

(34) 

: REM Ce | 

100 

(15) 

1 REM du 

110 

(222) 

:REH lii 

120 

(15) 

: FOR A= 


mttttmnttmttm 


H0DIFD0S 

par 

André Gui chardon 



mttntttmttttttttt 

progra««e assure le transfert de la page 4 utilisée par le dos 
JASMIN 2 a une adresse libre donnée par P0KEI9934,adr. haute, 


130 (65) :CLS:PRINT:PRINT:PRINT* 

140 (2) :PRINT:PRINT:INPUT* valeur 

150 (158) :CALLI9900 


de I 


H0DIFD0S" 
'adresse haute 


':A:POKEI9934,A 
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BER I LIST 


Ce court programme sert à vérifier les listings publiés dans THEORIC, dans lesquels apparaissent un nombre entre 
parenthèses, derrière le n° de ligne. Chargez-le à chaque fois que vous voudrez vérifier un listing ! 

Mode d'emploi 


— Taper VERILIST, le sauvegarder, 
faire RUN puis 

— CSAVE "VERILIST",A# B300, 
E#B3E6 (il utilise l'espace HIRES, 
donc rester impérativement en mode 
TEXT tant qu'il sera en mémoire...) ; 

— Le listing du programme BASIC 
à vérifier étant en mémoire, taper 
CALL tt B306 : les lignes apparais¬ 
sent à l'écran suivies de la somme 
de contrôle. Si vous possédez une 
imprimante, tapez CALL # B300 pour 
obtenir le listing. Comparez avec le 
listing publié dans THEORIC. 
ATTENTION ! Lorsque vous effec¬ 
tuez la saisie d'un listing de THEO¬ 
RIC, ne tapez surtout pas les nom¬ 
bres entre parenthèses situés der¬ 
rière les numéros de lignes. 



IC A=IB300:F=*B3E6:L=100 :REPEAT: FOR A-A TO A*15:READ Cl 

20 K=VAL(••*♦Ci):S=S+K*65536t(S+K>65535): IF A<=F THEN POKE A,K 

30 NEXT : READ DI :1F S=VAL(T+DI) THEN L=L*5:UNTIL A>F:END 

40 PING : FRINT’Er reur 1 igneVL 

100 DATA 20,16,CB,4E,F2 I 02,20,E8,00,20,E2,CA,20,B3,C6,EA,0797 

VI 

0 

105 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA I EA I EA,EA ( EA I A9,FF > 1&0B 

E 

110 DATA 85,33,85,34,A0,01.Bl.CE,FO,56.20,42,C9,C9,20 I D0,1DE6 

4m 

< 

% 

115 DATA 0E,4E,DF,02,AD,DF 1 02,10,FB,20 I 62,C9,4E,DF,02,C8,24FE 

120 DATA B1,CE,AA,C8,B1,CE,C5,34,D0,04,E4,33,F0,02,B0,30,2E24 

125 DATA 84,B8,48.20,FO,CB,68,20,C5,EO,8A',48.20,CO,B3,68,367D 

130 DATA AA,EA,E1A,A9,20,A4 ,B8,29,7F,20,D9,CC,C8,F0,11 ,BI ,4007 

K 

$3 

135 DATA CE.DO,1E.AB.B1,CE,AA,C8,B1,CE,86,CE,85,CF,D0,A4,4AF7 

140 DATA 2C,F2,02,10,01,60,20,F0,CB,20,2F,C8,68,68,4C,AB,513E 
145 DATA C4,10,D6,38,E9,7F,AA,84,B8,A0,00,A9,E9,85,18, A9,59E6 

150 DATA CO,85,19,CA,F0,0D,E6,18,D0,02,E6,19,B1,1B,10,F6,61A9 

155 DATA 4C,A3,B3,C8,B1,18,30,AD,20,D9,CC,4C,B3,B3,04,EA,6A1E 

160 DATA A9,20,20,D9,CC,A9,28,20,D9,CC,A0,03,A2,00,8A,51,7162 

165 DATA CE,8C,BE,B3,18,6D,BE,B3,C8,AA,B1,CE,D0,F0,20,CS,7BB9 
170 DATA EO,A9,29,20,D9,CC,60,00,00,00,00,00,00,00,00,00,7F90 
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AND, ORA, XOR, 
BIT : LOGIQUE ! 

Maurice LE GUVADER 


L a série d'articles sur la programma¬ 
tion d’un moteur à partir de l'ORIC a 
intéressé bien des lecteurs. Pour met¬ 
tre un terme à cette initiation, voici quel¬ 
ques détails sur l'utilisation de ces mysté¬ 
rieuses instructions que sont AND, XOR, 
ORA et BIT. 


UTILISATION : 


3 - Inverser 1 ou plusieurs bits 

• inverse le bit 0 

LDA %00100011 #23 35 octet de départ 

EOR %00000001 #01 1 masque 

A = %00100010 #22 34 octet résultant 

• inverse les bits 0 et 2 

LDA %00100011 #23 35 octet de départ 

EOR %00000101 #05 05 masque 

A = %00100110 #26 38 octet résultant 

Cette instruction n’a pas été utilisée pour la comman¬ 
de du moteur. 


Ces instructions sont souvent utilisées dès que l'on 
programme des sorties ou que l’on teste des entrées 
(VIA 6522 interne, carte 8 entrées 8 sorties, VIA ou 
PIA extérieur, programmateur d’EPROM, lecteur de 
disquette, interface imprimante, etc...), 
octets en binaire, hexa, décimal 

1 - forcer un ou plusieurs bits à 0 

• force le bit 0 à 0 

LDA %00100011 #23 35 octets de départ 

AND %11111110 #FE 254 masque 
A = %00100010 #22 34 octet résultant 

• force les bits 0 et 2 à 0 

LDA %00100011 #23 35 octet de départ 

AND %11111010 #FA 250 masque 
A = %00100010 #22 34 octet résultant 

voir lignes 181, 315, 335, 348 du programme LM de 
contrôle du moteur de barbecue transformé. 

2 - forcer un ou plusieurs bits à 1 

• force le bit 2 à 1 

LDA %00100011 #23 35 octet de départ 

ORA %00000100 #04 4 masque 

A = %00100111 #27 39 octet résultant 

• force les bits 0 et 2 à 1 

LDA %00100011 #23 35 octet de dépari 

ORA %00000101 #05 5 masque 

A = %00100111 #27 39 octet résultant 

voir lignes 244, 326, 342 du programme LM de contrô¬ 
le du moteur de barbecue transformé. 


4 - tester un bit d'un octet 


4.1 en forçant les autres bits à 0 

• tester le bit 0 

LDA %00100011 
AND %00000001 
A = %00000001 

• tester le bit 2 

LDA %00100011 
AND %00000100 
A = %00000000 


#23 35 octet de départ 
#01 1 masque 
#01 1 octet résultant 

#23 35 octet de départ 
#04 4 masque 
#00 0 octet résultant 


branchements par 
BNE... (Z=0) 

BEQ... (Z=1) 

4.2 avec l'instruction BIT 


BIT MEMO code 24 page 0 
code 2C absolu 


MEMO = adresse octet testé 

• le bit 7 de MEMO est recopié dans le bit 7 (bit de 
signe N) du registre P(indicateurs) 

branchements par : 

BMI... (N=1) 

BPI_(N=0) 

• le bit 6 de MEMO est recopié dans le bit 6 (bit de dé¬ 
bordement V) du registre P (indicateurs) 
branchements par : 

BVS... (V=1) 

BVC... (V=0) 

•test d'un bit quelconque de MEMO en utilisant un 
'masque' 

LDA %0001000 #10 16 masque pour tester par exem¬ 
ple ici le bit 4 de MEMO 
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BIT MEMO fait un AND entre MEMO et l'accumulateur 
en positionnant le bit 1 (bit de zér o Z) du registre P fin- 
dicateurs) en fonction du résultat 
Z=0 si le résultat du AND est 1 
Z=1 si le résultat du AND est 0 
branchements par : 

BNE... (Z=0) 

BEQ... (Z=1) 

voir lignes 391, 394, 415, 419 et 463 du programme 
LM de contrôle du moteur de barbecue transformé. 





NOTA : l’accumulateur A n'est pas modifié par l'ins¬ 
truction BIT. Les lignes 393 et 418 du programme LM 
de contrôle du moteur étant la répétition des lignes 
390 et 414 sont donc en trop. Elles ont quand même 
été laissées pour permettre d'adapter le programme 
en changeant le bit à 1 du masque lignes 390 et 414 
en cas de modification des branchements ou d'adap¬ 
tation d’un moteur supplémentaire. 

Un petit programme d'essai est proposé aux débu¬ 
tants (listing 1 pour le source et listing 2 pour le pro¬ 
gramme BASIC de chargement du langage machine 
par les DATAS). 





ISTING 1 


100 ; 
101 ; 
102 ; 

103 ; 

104 ; 

105 | 

106 ; 

107 ; 

108 j 

109 ; 

110 ; 
111 ; 
112 ) 

113 ; 

114 i 

115 j 

116 ; 

117 i 

118 ; 

119 ; 

120 ; 
121 ; 
122 | 

123 ; 

124 i 


+-♦ 

I instructions BIT et AND ! 

I application ! 

I test des bits ! 

I 7, 6, 5, 4 du PORT A I 
Eprise iepriaante (PRINTER)! 

! source ATHOS et ORIC 1 I 
i super aoniteur théorie I 
♦-♦ 

ATTENTION ce prograaae est re¬ 
serve aux débutants car il ne 
sert qu'a essayer les instruc¬ 
tions BIT et AND. Aucun texte 
n'apparaitra a l'écran lors du 
derouleaent du prograaae. 

asseablage en 17000 

ordre des operations 
CALL 17000 NOTA ! 

PIN6 la feraeture des 

feraer 17 interrupteurs 

ouvrir 17 pourra etre siau- 

PIN6 lee avec un petit 


125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 


; feraer 16 tournevis venant 

; ouvrir 16 court-cirtuiter 

; PING les broches cor- 

; feraer 15 respondantes de la 

; ouvrir 15 prise iapriaante. 

; PIN6 (voir figure 1) 

; feraer 14 NE PAS TOUCHER AUX 

i ouvrir 14 BORNES DE LA PRISE 

; EXPLODE 1 EXPANSION 1 

; retour au BASIC 


JSR ping; 

PING + PORT A er 

entree 

BCL1 ; 

attendre que le 

bit 

7 

BIT 0301; 

du PORT A passe 

a 0 


BHI BCL1; 

(17 se ferae) 



BCL2 ; 

attendre que le 

bit 

7 

BIT 0301; 

du PORT A passe 

a 1 


BPL BCL2; 

(17 s'ouvre) 



JSR ping; 

PIN6 ... 



BCL3 ; 

attendre que le 

bit 

6 

BIT 0301; 

du PORT A passe 

a 0 


BVS BCL3; 

(16 se ferae) 



BCL4 ; 

attendre que le 

bit 

6 

BIT 0301; 

du PORT A passe 

a 1 


BVC BCL4; 

(16 s'ouvre) 



JSR ping; 

PIN6 ... 




LDA 700100000; aasque 
BCL5 ; attendre que le bit 5 
BIT 0301; du PORT A passe a 0 
BNE BCL5; (15 se feras) 

I 

LDA 700100000; aasque 


162 BCL6 ; attendre que le bit 5 

163 BIT 0301; du PORT A passe a 1 

164 BEQ BCL6; (15 s'ouvre) 

165 JSR ping; PING ... 

166 ; 

167 BCL7 ; attendre que le bit 4 

168 LDA 0301; du PORT A passe a 0 

169 AND 700010000; aasque 

170 BNE BCL7; (14 se ferae) 

171 ; 

172 BCL8 

173 LDX IFF 

174 BCL9 ; attendre que le bit 5 

175 LDA 700010000; aasque 

176 AND 0301; du PORT A passe a 0 

177 BEQ BCL6; (14 s'ouvre) 

178 DEX ; vérifié 256 fois que 

179 BNE BCL9; 14 est bien ouvert, le 

180 ;generateur sonore ne fonctionne 

181 ;pas si PORT A 4 est reste a 0 

182 LDA 711111111; PORT A tout 

183 STA 0303 ; en sortie 

184 CLI ; interruptions autorisées 

185 JNP FACB; FAB1 sur ORIC 1 EXPLODE 

186 ; 

187 ping 

188 LDA 711111111; PORT A tout 

189 STA 0303 ; en sortie 

190 CLI; interruptions autorisées 

191 JSR FA9F; FA85 sur ORIC 1 PING 

192 ; préparé la prise iapriaante 

193 SEI ; pas d'interruptions 

194 LDA 700000000; PORT A tout 

195 STA 0303 ; en entree 

196 RTS 

197 FINI ; fin du source 

198 NOP 
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instructions 
AND ORA EXOR BIT 



fonction AND lET) 


fonction ORA (OU) 


r— 
AND 

0 

1 

0 

0 

0 

i 

_ 

0 

1 


e and a = e 

0 AND 1=0 
1 AND 0=0 
1 AND 1=1 


ORA 

0 

1 

0 

0 

1 

1 

L_ 

1 

1 


0 ORA 0=0 
0 ORA 1=1 
1 ORA e = 1 
1 ORA 1=1 


fonction EOR 


EOR 

0 

1 

0 

0 

0 


i e i 


(OU exclusif) 

0 EOR B = 0 
0 EOR 1 = 1 
1 EOR 0=1 
1 EOR 1 1 0 


1 



100 ftEn .. 

110 REM 1 instructions BU et AND 
120 REM 1 application 

130 REM 1 test des bits 
140 REH : 7, 6, 5. 4 du PORT A 

150 REM ; programme BASIC 
160 REH : de chargement 

170 REH ; du langage machine 

130 REH ♦. 


190 HIHEMI7000 
200 ILS 

210 FOR1=»7000TÜ*7059 

220 : READAS 

230 : AsVAlfr+AJ) 

240 : S=S+A 
250 : POKEI,A 
260 NEXT 

270 1FS<>9077THENPRINT‘erreur dans le 
s datas*: END 

280 IFDEEKUC000>*«594CTHENDOKE»7B48, 
IFAB1 :DOKEI7051 ,IFA85 adao. ÛRIC 1 
290 PRINT:PRINT“OK ..." 

300 PRINTîPRlNT-tape: CAtl *7000 cour 


le test" 

310 PR I NT : PR I NT”voir les coementaires 
dans le source" 

320 END 

1000 DATA 20.4A,70,20,01,03,30,FB,2C. 
01,03,10,FB,20,4A,70,20,01,03,70 
1010 DATA FB,20,01,03,50,FB,20,4A,70, 
A9,20,2C,01,03,D0,FB,A9,20,20,01 
1020 DATA 03,F0,FB,20,4A,70,AD,01,03, 
29,10,D0,F9.A2.FF,A9,10,20,01,03 
1030 DATA F0,F7,CA,D0,Fû,A9,FF,8D,03, 
03,58,40.CB,FA,A9,FF,80,03,03,58 
1040 DATA 20,9F,FA.78,A9.00,80,03.03. 
60 


1 


LES DISQUETTES DE THEOR1C 

N'usez plus le bout de vos doigts à saisir les listings de la revue. Nous vous proposons, réunis sur une même 
disquette, tous les programmes publiés dans deux numéros de THEORIC (consultez la liste ci-dessous pour 
commander ; aucun échange ne sera accepté). Les disquettes n° 1 à 14 n'existent qu'en format 
JASMIN. A partir de la disquette n° 15, elles sont disponibles en format JASMIN ou SEDORIC. Bien pré¬ 
ciser lors de la commande. 

Prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette d'abonné) ; 146 F pour les 
lecteurs non-abonnés. 

AVERTISSEMENT IMPORTANT : les programmes stockés sur ces disguettes sont tels que parus dans THEO¬ 
RIC. A vous de les adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 
N ° 2 THEORIC n° 6 e» 7 
N° 3 THEORIC n° 8 et 9 
N ° 4 THEORIC n° 1 O et 1 2 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 1 5 et 1 6 
N ° 7 THEORIC n° 17 et 18 
N° 8 THEORIC n° 19 et 20 
N° 9 THEORIC n° 21 et 22 
N° 10 THEORIC n° 23 et 24 
N ° HS THEORIC HORS SERIES (n° 11) 
N° 1 1 THEORIC n° 25 et 26 
N° 12 THEORIC n° 27 et 28 
N° 13 THEORIC n° 29 et 30 
N° 14 THEORIC n c 31 et 32 
N° 15 THEORIC n° 33 et 34 


ATTENTION I II n'y a pas de programme TELESTRAT sur cette disquette. 



vouic 

T035A36 


U 

EDIEPROfl.BAS 

S 

4 SECTOftS 






ü 

lŒPftOH.BAS 

S 

3 SECTOftS 

U 

BIDON 

• BAS 

S 

5: SECTONS 

U 

ÇUIŒPROfl.BAS 


6 SECTOftS 

U 

H0TEIHS0.BA5 

S 

52 SECTOftS 

u 

HCftAA .BAS 

s 

!• SECTOftS 

U 

VERILIST.BAS 

s 

36 SECTOftS 

u 

PfiOEPROfl.BAS 

5 

12 SECTOftS 

U 

SOSVAft 

.BAS 

s 

7 SECTOftS 

u 

LECEPftON.BAS 

c* 

6 SECTOftS 

U 

FGSUP 

.BAS 

S- 

45 SECTOftS 

u 

INSEPROfl.BAS 

S 

4 SECTOftS 

U 

F-UB 

.BAS 

s 

10 SECTOftS 

u 

TüAEPftOfl.BAS 

S 

10 SECTOftS 

U 

HEURE 

.BAS 

s 

24 SECTOftS 

u 

ESSEPftOH.BAS 


3 SECTOftS 

U 

YAHG 

.BAS 

s 

5 SECTOftS 

u 

HEMU .SCft 

c 

6 SECTOftS 

U 

YWII 

.BIN 

s 

33 SECTOftS 

ü 

GENECAT .BAS 

S 

27 SECTOftS 

y 

ym: 

.BAS 

s 

58 SECTOftS 

ü 

HESSDAT .BAS 

S 

13 SECTOftS 

u 

JUOE 

.BAS 

s 

10 SECTOftS 

u 

TABtOAT .BAS 

s 

140 SECTOftS 

ü 

IftAHF 

.BAS 

s 

80 SECTOftS 

ü 

TABUASn.BAS 

s 

12 SECTOftS 

u 

HOTIFS 

• BAS 

s 

Il SECTOftS 





u 

DAC 

.BAS 

£ 

SECTOftS 


SECTOftS FftEE 




□ JASMIN BON DE COMMANDE 

□ SEDORIC DES DISQUETTES THEORIC 


Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, 
10, 1 1, 12, 13, 14, 15 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F par disquette car je ne suis pas obonné 

Soit au total la somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 










































‘‘uiMem. y> 



Alain TEXIER 

R as le bol des écrans tristes ! 
Faites-les donc bouger un 
peu pour donner à vos réali¬ 
sations personnelles un look pro ! 


Ce programme permet de jouer 
avec son écran en utilisant le scrol- 
ling, l'inversion vidéo et le retour à 
la normale, l'addition et la soustrac¬ 
tion au code ASCII des caractères 
affichés, la mémorisation ou l'affi¬ 
chage de votre écran. 

Ceci en mode TEXT ou en HIRES, 
pour n'importe quelle partie d’écran 
choisie. Il est entièrement écrit en 
assembleur et va de &8FCB à &95 
AD. 

Son utilisation est simple. Pour tou¬ 
tes les options sauf une, il suffit de : 
POKER en &4 le nombre de lignes 
voulues, 

POKER en &5 le nombre de carac¬ 
tères par ligne voulus, 

DOKER en &6 l'adresse du premier 
caractère concerné facile à calcu¬ 
ler : 

X et Y étant les coordonnées (print 
ou curset) du caractère, en HIRES 
faire &A000 et X + Y*40, en TEXT 
faire &BBA8 + X + Y*40. 

Plusieurs options sont proposées : 

- SCROLLING ROTATIF : 
(récupération et affichage de la 
ligne disparaissant) 
gauche-droite CALL & 90C3 
droite-gauche : CALL & 911B 
bas-haut : CALL & 93A4 
haut-bas : CALL & 93B2 


- INVERSION DROITE GAU¬ 
CHE : 

le caractère le plus à droite vient à 
gauche... ainsi de suite (ECRAN de¬ 
vient NARCE). L'Atmos apprend le 
VERLAN !!! CALL&928C 
Le résultat (surtout en HIRES est 
souvent étonnant !) 

- SCROLLING NORMAL : 

(sans récupération de la ligne dispa¬ 
raissant). 

Le programme initial est prévu pour 
afficher un blanc à la place du carac¬ 
tère qui disparait, mais il est pos¬ 
sible de POKER aux adresses don¬ 
nées le code ASCII du caractère 
que l'on désire. 

gauche-droite : 

TEXT : CALL & 9427 (caractère en 
& 9428) 

HIRES CALL & 942F (caractère en 
& 9430) 

droite-gauche : 

TEXT : CALL & 9496 (caractère en 
& 9499) 

HIRES: CALL & 94A3 (caractère 
en & 94A6) 

bas-haut : 

TEXT : CALL & 9514 (caractère en 
&9515) 


HIRES : CALL & 9510 (caractère en 
& 951D) 

haut-bas : 

TEXT : CALL & 9596 (caractère en 
& 9597) 

HIRES : CALL & 95A9 (caractère 
en & 95AA) 

- INVERSION VIDEO : 

permet d'isoler une partie de récran 
ou de jouer avec les couleurs. 

CALL & 9344 pour inverser la vidéo 
CALL & 936D pour rétablir la vidéo 
normale. 

- ADDITION ou SOUSTRAC¬ 
TION aux codes ASCII des carac¬ 
tères affichés. 

Le programme initial est prévu pour 
ajouter ou soustraire 1. Mais on 
peut POKER le nombre voulu aux 
adresses données. 

ADDITION : CALL & 907B (nombre 
en & 9086) 

SOUSTRACTION : CALL & 90A4 
(nombre en & 90AF) 

Le résultat est parfois cocasse 
(demi-écran TEXT, demi-écran HI¬ 
RES, clignotement, couleurs...). 

- MEMORISATION de récran : 
DOKER en & A l'adresse de départ 
de la portion d'écran choisie 
DOKER en & 6 l’adresse mémoire 
choisie pour le stockage (&4 et &5 
identiques aux autres options), 
puis CALL&92F8. 

- AFFICHAGE de la portion 
d'écran mémorisée : 

DOKER en & A l'adresse de départ 
de la mémoire de stockage 
DOKER en & 6 l'adresse de départ 
de la portion d'écran où vous vou¬ 
lez afficher, (&4 et &5 identiques 
aux autres options), puis CALL & 
931E. 

Ces deux dernières options permet¬ 
tent de créer des dessins animés 
ou des fenêtres sur récran. 

Avec un minimum d'habitude, ce 
programme permet des choses 
étonnantes. Un programme de dé¬ 
monstration (DEMECRAN) montre 
quelques-unes de ses possibilités. 
Mais il peut être largement étendu 
selon rimagination de l'utilisateur. 
Frappez puis sauvegardez d'abord 
le programme ECRAN en BASIC 
(cela peut toujours servir). Ensuite 
RUN puis sauvez la routine en bi¬ 
naire ECRAN.BIN, & 8FCB, & 95 
AD. Puis frappez le programme de 
démonstration (DEMECRAN) qui 
appelle ECRAN.BIN. 
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Ecran 


ATTENTION ! 

Programme listé avec 
dispositif "anti-erreurs". Ne 
pas taper le nombre entre 
parenthèses situé derrière le 
numéro de ligne. Voir 
explications dans article 
"VERILIST" 


10 (220) FORI=i8FCBTO#95AD:READA< .POKEI ,VAL(*r+A 
♦ KNEXT 


30 (239) REH ROUTINE STOCKAGE ECRAN 

32 (162) DATAA5,07,48,A5,06,38,E9,01,B0,02,C6,07, 

85,06,20,FF,8F,68,85,07,A6,06,E8 

33 (176) DATA86,06,60 

35 (238) DATAA5,0B,48,A5,0A,38,E9,01,B0,02,C6,0B, 
85,0A,20,FF,8F,68,85,0B,A6,0A,E8 
37 (247) DATA86,0A,60 

40 (51) DATAA6,0A,EA,8E,19,90,A6,06,9E,1C,90 
50 (221) DATAA6,07,8E,1D,90,A6,0B,8E,1A,90,A4,04 
60 (110) DATAA6,05,BD,A9,BB,9D,00,50,CA,D0,F7,18, 
AD,19,90,6D,17,90,90,03,EE,1A,90 
70 (141) DATA8D,19,90,18,AD,IC,90,6D,17,90,90,03, 
EE,1D,90,8D,1C,90,88,D0,D4,60 
80 (137) REH ROUTINE INV/VIDEO 
90 (18) DATAA6,06,8E,59,90,8E,5E,90,A6,07,8E,5A, 
90,8E,5F,90,A4,04,A6,05,EA,BD,B1 
100 (189) DATAB3,29,7F,9D,B1,B3,CA,D0,F5,18,AD,59 
,90,69,28,90,06,EE,5A,90,EE,5F,90 
110 (57) DATA8D,59,90,8D,5E,90,88,D0,DB,60 
112 (166) DATAA2,18,8E,57,90,A2,69,8E,5B,90,A2,01 
,8E,5C,90,A5,07,48,A5,06,38,E9,01 
114 (196) DATAB0,02,06,07,85,06,20,43,90,68,85,07 
,A6,06,E8,86,06,60 

116 (29) DATAA2,38,8E,57,90,A2,E9,8E,5B,90,A2,01 
,8E,5C,90,A5,07,48,A5,06,38,E9,01 
118 (82) DATAB0,02;C6,07,4C,96,93,EA 
120 (75) REH ROUTINE SCROLG/D 
130 (235) DATAA6,06,A4,07,8E,E5,90,8E,EA,90,8E,F5 
,90,8E,EE,90,8C,E6,90,8C,EB,90,8C 
140 (229) DATAF6,90,8C,EF,90,A4,04,A6,05,CA,BD,CA 
,B2,48,CA,BD,CA,B2,E8,9D,CA,B2,CA 
150 (57) DATAI0,F5,68,8D,CA,B2,18,AD,E5,90,69,28 
,90,0C,EE,E6,90,EE,EB,90,EE,F6,90 
160 (179) DATAEE,EF,90,8D,E5,90,8D,EA,90,8D,F5,90 
,8D,EE,90,88,D0,C7,60 
170 (252) REH SCROLL D/G 
180 (132) DATAA6,06,A4,07,8E,3A,91,8E,40,91,8E,44 
,91,8E,4F,91,8C,3B,91,8C,41,91,8C 
190 (73) DATA45.91,8C,50,91,A4,04,AD,CA,B2,48,A2 
,01 ,BD,CA,B2,CA,9D,CA,B2,E8,E8,E4 
200 (192) DATA05,D0,F3,68,CA,9D,CA,B2,18,AD,3A,91 
,69,28,90,0C, EE, 3B ,91, EE ,41,91, EE 
210 (213) DATA45.91,EE,50,91,8D,3A,91,8D,40,91,8D 
,44,91,8D,4F,91,88,D0,C5,60 
220 (207) REH SCROLL B/H 
230 (247) DATAA6,06,8E,BE,91,8E,CE,91,8E,CB,91,A6 
,07,8E,BF,91,8E,CF,91,8E,CC,91,8E 
240 (88) DATAFB,91,38,A5,06,E9,01,BO,03,CE,FB,91 
,8D,FA,91,18,A5,06,69,28,90,03,EE 
250 (203) DATACC,91,8D,CB,91,A6,04,18,AD,FA,91,69 
,28,90,03,EE,FB,91,8D,FA,91,CA,D0 
260 (32) DATAEF,A2,00,BD,7A,BC,48,E8,E4,05,DO,F7 
, A0,00, A2,00, BD, 32, BE, 9D, 0A, BE, E8 à 


270 (70) DATAE4,05,D0,F5,18,AD,CB,91,69,28,90,03 
, EE, CC ,91,8D, CB ,91,18, AD, CE ,91,69 
280 (136) DATA28,90,03,EE,CF,91,8D,CE,91,C8,C4,04 
,D0,D2,A6,05,68,9D,09,BE,CA,D0,F9 
290 (212) REH SCROLH/B 

300 (148) DATA60,A6,06,8E,4C,92,8E,5C,92,8E,59,92 
,8E,86,92,A6,07,8E,4D,92,8E,5D,92 
310 (95) DATA8E,5A,92,8E,87,92,A6,04,AD,86,92,18 
,69,28,90,09,EE,4D,92,EE,5A,92,EE 
320 (124) DATA5D,92,8D,59,92,8D,4C,92,8D,5C,92,CA 
,D0,E6,38,AD,59,92,E9,28,B0,03,CE 
330 (69) DATA5A,92,8D,59,92,A6,05,BD,3A,BD,9D,80 
,9F,CA,D0,F7,A4,04,A6,05,BD,82,BB 
340 (133) DATA9D,AA,BB,CA,D0,F7,38,AD,59,92,E9,28 
,B0,03,CE,5A,92,8D,59,92,38,AD,5C 
350 (32) DATA92,E9,28,B0,03,CE,5D,92,8D,5C,92,88 
,D0,D6,A6,05,BD,80,9F,9D,AA,BB,CA 
360 (222) DATAD0,F7,60 
370 (59) REH INVERSION G/D 
380 (153) DATAA6,06,8E,B3,92,8E,C3,92,A6,07,8E,B4 
,92,8E,C4,92,A4,04,C6,05,AD,C3,92 
390 (149) DATA18,65,05,90,03,EE,C4,92,8D,C3,92,E6 
,05,A2,00,BD,FF,BE,9D,80,9F,E8,E4 
400 (170) DATA05,DO,F5,A2,00,BD,80,9F,8D,F5,BE,AD 
,C3,92,38,E9,01,B0,03,CE,C4,92,8D 
410 (170) DATAC3,92,E8,E4,05,D0,E7,AD,B3,92,18,69 
,28,90,03,EE,B4,92,8D,B3,92,AD,C3 
420 (70) DATA92,18,69,29,90,03,EE,C4,92,8D,C3,92 
,88,DO,AT,60 

430 (47) REH AJUSTERENT STOCKAGE ECRAN 
440 (204) DATAEA,EA,EA,EA,EA 
450 ( 148) DATAA9,69,8D,25,90,A9,28,BD,26,90,A9,EA 
,8D,27,90,A9,69,8D,34,90,A5,05 
460 (45) DATA8D,35,90,A9,EA,8D,36,90,4C,E5,8F 
470 (158) DATAA2,EA,8E,01,90 
480 (184) DATAA9,65,8D,25,90,A9,05,8D,26,90,A9,EA 
, 8D, 27,90, A9,69,8D, 34,90, A9,28 
490 (220) DATA8D,35,90,A9,EA,8D,36,90,4C,CB,8F 
500 (201) REH AJUSTEMENT INVERSION VIDEO 
520 (28) DATAA2,EA,8E,57,90,A2,09,8E,5B,90,A2,80 
,8E,5C,90,A5,07,48,A5,06,38,E9,01 
530 (106) DATAB0,02,C6,07,85,06,20,43,90,68,85,07 
,A6,06,E8,86,06,60,A2,EA,8E,57,90 
540 (17) DATAA2,29,8E,5B,90,A2,7F,8E,5C,90,A5,07 
,48,A5,06,38,E9,01,BO,02,C6,07,85 
545 (69) DATA06,20,43,90,68,85,07,A6,06,E8,86,06 
,60 

550 (66) DATA85,06,20,43,90,68,85,07,A6,06,E8,86 
,06,60 

570 (43) REH AJUSTEMENT SCROLLB/H 
580 (212) DATAA6,04,CA,86,04,20,75,91,A6,04,E8,86 
,04,60 

590 (241) REH AJUSTERENT SCOLLH/B 
600 (175) DATAA6,04,CA,86,04,A5,07,4B,A5,06,3B,E9 
,01,B0,02,C6,07,85,06,20,00,92,A4 
610 (244) DATA04,E8,86,04,68,85,07,A6,06,E8,86,06 
,60 

612 (228) DATAEA,EA,EA,EA,EA,EA,EA,EA 
615 (252) REH SCROLLG/D SANS RECUPERATION 
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620 (85) DATAA6,06,8E,FB,93,BE,FF,93,8E,07,94,A6 
,07,8E,FC,93,8E,00,94,8e,08,94,A4 
630 (208) DATA04,A6,05,CA,CA,BD,AA,AF,E8,9D,AA,AF 
,CA,D0,F5,A9,40,8D,AA,AF,18,AD,FB 
640 (110) DATA93,69,28,90,09,EE,FC,93,EE,00,94,EE 
,08,94,8D,FB,93,8D,FF,93,BD,07,94 
650 (202) DATA88,DO,DO,60,A2,20,8E,05,94,4C,DE,93 
, A2,40,8E, 05,94,4C, DE, 9 3 
655 (56) REH SCROLLD/G SANS RECUPERATION 
660 (136) DATAA6,06,8E,60,94,8E,64,94,8E,6E,94,A6 
,07,8E,61,94,8E,65,94,8E,6F,94,A5 
670 (196) DATA06,18,65,05,90,03,EE,6F,94,8D,6E,94 
, A4,04, A2,00, E8, BD, 5A, B4, CA, 9D, 5A 
680 (107) DATAB4,E8,E4,05,DO,F3,A9,40,8D,6D,B4,18 
, AD, 60,94,69,28,90,06, EE, 61,94, EE 
690 (34) DATA65,94,8D,60,94,8D,64,94,AD,6E,94,18 
,69,28,90,03,EE,6F,94,8D,6E,94,88 
700 (191) DATADO,C7,60,C6,05,A2,20,8E,6C,94,20,37 
,94,E6,05,60,C6,05,A2,40,SE,6C,94 
710 (186) DATA20,37,94,E6,05,60 
720 (15) REM SCROLL B/H SANS RECUPERATION 
730 (181) DATAA6,06,8E,D2,94,8E,D5,94,A6,07,8E,D3 
,94,8E,D6,94,A5,06,18,69,28,90,03 
740 (234) DATAEE,D3,94,8D,D2,94,A4,04,A2,00,BD,90 
,BD,9D,68,BD,E8,E4,05,D0,F5,AD,D2 
750 (217) DATA94,8D,D5,94,AD,D3,94,8D,D6,94,AD,D2 
,94,18,69,28,90,03,EE,D3,94,8D,D2 
760 (37) DATA94,88,C0,01,DO,D4,AD,D5,94,8D,OC,95 
,AD,D6,94,8D,0D,95,A9,C3,A2,00,9D 
770 (112) DATA68,BD,E8,E4,05,D0,F8,60,A2,20,8E,08 
,95,4C,BO,94,A2,40,4C,16,95 
775 (84) REM SCROL H/B SANS RECUPERATION 
780 (62) DATAA6,06,8E,66,95,8E,8E,95,8E,63,95,A6 
,07,BE,67,95,8E,8F,95,8E,64,95,A4 
790 (39) DATA04,18,AD,66,95,69,28,90,06,EE,67,95 
,EE,64,95,8D,66,95,8D,63,95,88,DO 
800 (46) DATAE9,AD,66,95,38,E9,28,BO,03,CE,64,95 
,8D,63,95,A4,04,A2,00,BD,D8,BB,9D 
810 (121) DATAOO,BC,E8,E4,05,DO,F5,AD,64,95,80,67 
,95,AD,63,95,8D,66,95,38,E9,28,B0 
820 (189) DATA03,CE,64,95,8D,63,95,88,EA,EA,DO,D7 
,A9,81,A2,00,9D,00,BC,E8,E4,05,DO 
830 (115) DATAF8,60,A2,20,8E,8A,95,A6,04,CA,86,04 
,20,21,95,A6,04,E8,86,04,60,A2,40 
840 (125) DATA4C,98,950 


Démétran 

0 (252) 'LOAD’ECRAN.BIN*:HIRES:PAPER4:INK2:NAIT50 
5 (19) DOKE6,1A64A :POKE4,120:POKE5,20 :CALLI9344: 
WAIT50:CURSET120,100,0 

21 (185) FORI=1T030STEP3:CIRCLEI,1:NEXT:FORI=35TO 
60STEP6:CIRCLEI,1 :NEXT 

22 (150) FORI=1T060ICIRCLEI,2:NEXT:GOTO90 

30 (138) DOKE6,«A64A:POKE4,40:POKE5,5:CAULA:DOKE6 
,»B2CA:CALLA 



50 (194) DOKE6, i A659:CALLA:DOKE6,IB2D9:CALLA : DOKE 
6,1AC8F:POKE5,10 :CALLA:RETURN 
80 (147) FORI=1TOB:GOSUB30:VAITC:NEXT:RETURN 
90 (231) WAIT100:FORI=1T08:A=I9344:COSUB30:WAIT10 
: A=#936D : GOSUB30 : WAIT10 : NEIXT 
120 (117) A=I928C:B=20:C=10:GOSUB80:A=I90C3:B=30: 
C=1:GOSUB80:GOTO150 

140 (143) DOKE6, # A64A : POKE4,120: POKE5,20 : FOR 1=1 TO 
B:CALLA:NEXT:RETURN 

150 (49) A=i911B:B=40:GOSUB140:A=#93A4:B=40:GOSU 
B80:A=I93B2:B=120 :GOSUB140 
180 (250) A=*911B :B=20:GOSUB80:A=«90C3:B=40:GOSUB 
140 :A=I93B2:B=40:GOSUB80 

210 (239) A=f93A4:B=120:GOSUB140:A=#928C:B=20:GOS 
UB140:A=I942F:B=20:G0SUB140 
225 (33) A=I9344:B=1 :GOSUB140 :A=I907B:B=15 :C=5: G 
0SUB80 

240 (71) C=0:POKE«95AA,37 :A=#95A9:B=40:G0SUB80: P 
OKEI94A6,32 :A=I94A3 :B=10 :GOSUB80 
255 (41) FORI=20TO40 : CIRCLEI,2 :ME3CT: FORI =50TO85 : 
CIRCLEI, 2 : NEXT : AM907B : GOSUB80 
270 (181) DOKEiA,«A64A:POKE4,120:POKE5,20 :DOKE6,1 
5000 :CALL#92F8 

280 (94) FORI=0TO6:PAPERI:IHKI+1 :WAIT100:NEXT: P 
APER7 :1 NK 1 

300 (223) DCHŒtA,95000:WAIT100:HIRES:PAPER6: INK4 : 
G=IA000 

310 (250) FORI=lTO10:FORU=lTO20:DOKE6,(G+It2)+U*4 
0 :CALLI931E:NEXT:G=G+240:NEXT 
340 (176) FORI=1T010:CALL9928C:NEXT:FORI=1T010:CA 
LLI936D: VAITl 0 :CALLI9344:HAITl0 :NEXT 
360 (170) DOKE6,IA002:POKE4,199:POKE5,38:FORI=1TO 
38:CALLI911B:NEXT 

370 (92) POKEI9430,140:FORI=1T038:CALL«942F:NEXT 
380 (55) CURSET120,100,0:CIRCLE60,1ICIRCLE20,1 
390 (97) A=*9344:GOSUB80:A=I928C:B=20:GOSUB80:A= 
I928C:B=20:GOSUB140 

411 (71) DOKE6,iA64A:POKE4,120:POKE5,20:FORI=lTO 
6:CALLI907B:NEXT 

430 (234) POKE5,10:FORI=1T020:DOKE6,IA64A:CALL#90 
C3:DOKE6,IA654:CALLI911B :NEXT 
440 (36) DOKE6,#A64A:POKE5,20:FORI=1TOI20:CALLI9 
5 IC :NEXT 

500 (223) TEXT:CLS:PAPER2:INK4:FORI=I0TO23STEP3:P 
L0TI,5, , -) , :PL0TI,20,*-> , :NEXT 
520 (140) A=6:FORI=10TO23:PLOTI,A,126:A=A+l:NEXT 
525 (183) A4="ECRAN”:PLOT12,15,A4 :PLOT17,8,Al : WAI 
T100 

530 (89) D0KE6,48250:POKE4,16:POK£5,14:FORI = lTOI 
0 :CALLI928C: VAIT20:NEXT 
540 (182) CALL#9344:VAIT100:GOTO570 
550 (50) FORI=1TOC:CALLA:VAIT20:NEXT:FORI=1TOC:C 
ALLB:VAIT20:NEXT:RETURN 

570 (254) C=10:A=#907B:B=f90A4:GOSUB550:C=14:A=»9 
0C3:B=#911B :GOSUB550 

580 (14) C= 16:A=I93A4:BM93B2:GOSUB550:CALLI928C 
590 (106) VAIT100:POKE*9515,37:FORI=1T016:CALLI95 
14 : VAIT25:NEXT 

600 (148) FOR I=1 TOI 6 : CALLV9596 : VA IT20 : NEXTO 
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^ Jean-Luc SIRET 

JA près avoir proposé dans THEORIC un tableur, voici un logiciel qui 
lui sera avantageusement associé. Attention, tout comme le tableur, 

A. jHL ce logiciel ne sera pas facilement utilisable par des débutants. Ce 
logiciel est indissociable du tableur publié précédemment. 

1 


Ce programme reprenant quelques 
routines du cale permet de visualiser 
sous forme d'histogramme les 
valeurs numériques. Avant utilisa¬ 
tion, le cale doit être en mémoire. 
Tout d'abord, les touches curseurs 
permettent de se déplacer dans le 
cale : la cellule pointée et son con¬ 
tenu sont rappelés sur les trois lignes 
de texte. 

La cellule pointée sera celle qui fera 
office de titre au graphique et déter¬ 
mine la colonne ou la ligne à visuali¬ 
ser. Ex B03 sera le titre du graphi¬ 
que de la colonne B ou de la ligne 03. 
Ensuite, il faut choisir le maximum. 
Il faut noter que toute valeur supé¬ 
rieure sera mise égale au maximum ; 
toute valeur négative ou tout texte 
aura une valeur nulle. Selon le choix 
suivant, on détermine le nombre de 
valeurs à visualiser. Les deux réfé¬ 
rences permettent de mieux com¬ 
prendre chaque valeur du graphique. 
Si elles sont les mêmes que l'indice 
de ligne ou de colonne , elles sont 
inopérantes. 

Ensuite, vient le choix du graphique 
proprement dit : 

3 pour histogramme 3 dimensions ; 
2 pour histogramme 2 dimensions et 






L pour ligne passant par les 
sommets. 

Le choix suivant d'effacer ou non 
l'écran permet de dessiner en surim¬ 
pression sur l'ancien dessin (s'il y en 
a un) qui passe alors en pointillés. 
Quelques secondes d'attente où le 
programme lit les valeurs dans le 
cale à afficher. Le dessin se fait ; en 
haut apparait le nom de la cellule 
d'origine pointée. En bas apparait 
une flèche qui va désigner chaque 
colonne les unes après les autres 
avec rappel sur les trois lignes texte 
de la valeur numérique pointée ains 
que les références de ligne ou de 
colonne. 

Exemple : cellule pointée C03 et 
choix de colonne 

colonne C : ligne 04 à 25 
référence A B 

Toutes les valeurs de C04 à C25 
seront affichées en graphique puis 
en dessous, le rappel du contenu de 
C04;A04;B04 puis C05;A05;B05 
etc... 

Pendant ce rappel, l'appui de la barre 
d'espace permet de rajouter une gra¬ 
duation avec un choix de subdivi¬ 


sions de 2 à 10 ; le maximum étant 
rappelé en haut. 

La touche ESC permet de sortir et 
d'aller vers l'impression du dessin 
sur imprimante avec un programme 
de hardcopy. Le programme présent 
correspond à celui sur BROTHER 
M-1009. Pour en changer, mettre 
son programme personnel de reco¬ 
pie Hires à partir de # 9200 (2 pages 
#93FF), et sauvegarder le tout de 
0 8BOO à # 97FF. 

Ensuite, on revient au choix de 
départ avec le choix de la cellule 
pointée. ESC permet de sortir du 
programme. Mais à partir du 
deuxième choix, l'appui sur 
FUNCT + RETURN au lieu de 
RETURN seul permet de sauter le 
choix des paramètres ; ceux-ci étant 
alors égaux aux anciens choisis. 
C'est tout. Bon dessin ! 

Pour saisir ce logiciel, procéder 
comme suit : 

— Taper le LISTING 1 et le sauve¬ 
garder. Faire RUN et, s'il n'y a pas 
d'erreur, lorsque "Ready" réappa- 
rait, faire : 

SAVE "GRAPHIC.ASS", A # 8B00, 
E # 97FF 

— Taper le LISTING 2 et procéder 
comme pour le précédent en faisant 
SAVE "HISTMESS4.ASS", A # 
9C00, E # 9CFF 

Pour lancer le "Grapheur”, utiliser le 
petit programme "GRAPHE”. 


10 hiresihihehisaff 

20 LOAD“GRAPHIC.ASS" 

30 L0AD‘HISTHESS4.ASS" 
40 CALLI8B00 


44 





























CjRAPMC 


10 (00) A=«BB00:F=I97FT :L=1000 :REPEAT: FOR A=A TO A*I5:READ Ci 
20 (224) K=VALcr*Cil:S=S*K*65536»(S*K>65535):lF A<=F THEN POKE A,K 
30 IM5) NEU:REA0 Di; IF S=VAL( *•**DI) THEN L=L*5:UNTIL A>F:END 
40 (70) PlNG:PRINT‘Erreur hqneM 

1000 (0) DATA 4C,19,0B,A5,58,C9,33,OO,O4,2O,7C,94,6O,C9.32,DO,O7I0 
1005 (145) DATA 04,20,39.95,40.20,91,95.60.A9.43.05.53.A9.00.05.0D02 
1010 (200) DATA 50,A9,41.00,FE,07,A9,01,BD,FF.07,20,33,EC,20,CE,1430 
1015 (149) DATA CC,E4,12,20,OC,94,A9,BF,A2,4B,20,DD,94,AD,FE,07,1C75 
1020 (25) DATA 09,00,85,04,AD,FF,07,09,80,05,05,E4,10,AO,03,A9,220F 
1025 (47) DATA 20,91,10,C8,CO,20,00,F9,20,71,94,90,0F,AO,03,81.29DB 
1030 (249) DATA 02,F0.09.30.07,91,10,C8,C0.20,D0,F3,20,39,94,C9,30D1 
1035 (142) DATA 08,D0,10.AD,FE,07,C9.41,F0,F2.20,50,94.8D,FE.07.38EF 
1040 (152) DATA 4C.3I,8B,C9.09,DO,I0.AD,FE,07,C9,7A.FO,DE,20.44,40D2 
1045 (49) DATA 94,BD,FE,07,4C,31,SB,C9,OA,DO,OD,AD.FF.07,C9,43,4891 
1050 (1441 DATA FO,CA,EE,FF,07.4C.31,8B,C9,OB,D0,OD.AD,FF.07,C9,5174 
1055 (90) DATA 01,F0,B9,CE,FF,07.4C.31,8B,C9,IB,00,OB,20,47,F9,5939 
1040 (133) DATA A9,OO.0D,OF.O2,4C,A8,C4,C9,OO,DO,AO,A5,5O.FO.OA.A13O 
1045 (129) DATA AD,09,02,C9,A5,D0,03,4C,C0,8D.AO.07,B9.FF,9B,99.4962 
1070 (137) DATA 8F,BF,88,D0,F7,A9.BF,A2.99,20,23,94.A9,00,8D,DF.7290 
1075 (99) DATA O2,2O,8O,CD,A2.0O,B5.35,C9,3O.9O,OF,C9,3A,BO,OB,78El 
1000 (1921 DATA E8.E0,O5,D0,Fl,A5,35,C9,34,B0,CF,E0,00,F0,CB,A9,830B 
1085 (1801 DATA 00,95,3S,A2.34,AO,00,84,E9,84,EA,20,E2,00,20,E2,BA2C 
1090 (213) DATA CA,A4,33,84,51,A5,34,85,52,DO,03,98,FO,AC,AO,AA,92A3 
1095 (104) DATA 20,B6,D4.A2,85.AO,02,20,AD.DE,A4,51,A5.52,20,40,9A0D 
1100 (98) DATA DF,A9,85,AO,02.20,E4,D0,A2,85,AO,02,20,AD,DE,20,A231 
1105 (0) DATA CE.CC.AO,10,89,04,9C,99,47,BF,88,DO,F7,A9,BF,A2,ABEE 
1110 (139) DATA 7A,20,23,94,A5,53,91,12,20,39,94,C9,43,F0,F7,C9.B387 
1115 (2441 DATA 4C.F0.F3.C9,0D,D0,F1,B1.12,29,7F.85.53,C9,43,F0,BC8C 
1120 (34) DATA 29,4C.30,0D,20.39,96,C9,00,DO.05,B1,12.29.7F.60.C223 
1125 (1531 DATA C9.41,90,F0,C9,5B.B0,EC,AE,09,02,E0,A4,F0,04,E0,CB7E 
1130 1451 DATA A7.D0.03,18,69,20.91,12,D0.DA,AO,25,B9,37,9C,99,02D0 
1135 (55) DATA 8F,BF,B8,DO,F7,A0,01,84,54,C8.84.55,AD,FE,07,85,DB8E 
1140 (194) DATA 54,80,B2,BF,85,57,8D.B4,BF,09,80,8D.98,8F.A9.30.E434 
1145 (4) DATA AO,31,8D,A0,BF.8C,A1,BF,C8,8D,A5,BF,8C,A4,BF,A9,EE30 
1150 (1851 DATA BF,A2.AO,20,23.94.20.10,97.A5,05,85,54.A9.BF.A2,F55E 
1155 (921 DATA A5.20.23,90,20,10.97,A5,05.85,55,C5,54,B0.08.A5,FB9D 
1180 (197) DATA 54,A4,55,84.54,85,55,A9,BF,A2,B2.20,23.94.20,84,02D5 
1145 (19) DATA BC,CD,FE,07,D0,02,A9,00.05,56.A9,BF,A2,B4,20,23,0A8A 
1170 (89) DATA 96,20,84,BC,CD,FE,07,D0,02,A9,00.85,57.4C.C0,8D,1212 
1175 (142) DATA A0.26.B9,11,9C,99,0F,BF,00.DO,F7,A9,BF,A2,95,B5,IB98 
1180 (50) DATA 11,84,10,AC,FF,07,20,ED,94,AO.41,04,54,8C,Al,BF,2339 
1105 (14) DATA C8,84,55,8C.A5,BF,A9,BF,A2,BO,85,11,84,10,AC,FF,2C5B 
1190 (551 DATA 07,84,54,20,ED,94,A2.B3,84,10,AC,FF,07,84,57,20,3377 
1195 (2231 DATA ED,94,A9,BF,A2,A1,20,23,96,20.84,8C,85,54,A2,A5,3BC€ 
1200 (35) DATA A9,BF,20.23.96.20,84,8C,B5,55,C5.54,B0,08,A5.54,42E3 
1205 (37) DATA A6,55,86,54,85,55.A9,BF,A2,B1,20.23,96.20.10.97,49ED 
1210 (41) DATA A5,05,CD,FF,07,DO,02,A9,00,85,56,A9,BF,A2,B4,20,519E 
1215 (90) DATA 23,94,20,10,97.A5.05,CD,FF,07,DO.02,A9,00,85,57.57F2 
1220 (170) DATA AO,11,B9,7E,9C,99,B7,BF,88,DO,F7,A9,BF,A2,CA,20,41C8 
1225 (52) OATA 23,94,A9,33,91,12,20,39,94,C9,33,F0,F7,C9,32,F0,49BO 
1230 (89) DATA F3,C9,4C,FO,EF,C9,OD,DO,ED,B1,12,29,7F,85,58,A5,7324 
1235 (212) DATA 54,85,59.A9.00.85,43.A5,59,09,80.AA,A5,53,C9,43,79FC 
1240 (158) DATA DO,OB,84,05,AD,FE,07,09,80,85,04,DO,09,84,04,AD,8034 
1245 (140) DATA FF,07,09,80,85,05.20,69,97,20,13.DF.C9,FF,DO,04,871D 
1250 (2401 DATA A9,00,F0,!A,A9,85,AO,02,20,EO,DC,20,8C,DF,A5,D3,BF88 
1255 (1521 DATA DO,04,A5.D4,C9,AA,90,02.A9,AA,E6.43,A4,43,99,80,9858 


1240 (130) DATA 04.A5,59,C5,55,F0.15.A5,53,C9.43,D0.05,E4.59,4C,9FDF 
1245 (150) DATA F7,BD,A5.59.20.44,94.85.59,4C.F7.8D,A9,14,05.41,A78E 
1270 (173) DATA A5.43,C9,0B,90,OB,A9,E4.A4,43,20,CF.90,A5,08.85.AFOC 
1275 (177) DATA 41 ,A5,41,4A.85,44.0A.85,41 ,A2,09,A0.BE,84,44,84,B54F 
1280 (233) DATA 45,A9,AA,05,4O,2O,CE.CC,A5,5O,FO,55,AO,OB,B9,5C,BD8O 
1285 (242) DATA 9C,99,B7,BF,80,DO,F7,A9,8F.A2,C4,2O,23,94.A9,4F,C719 
1290 (94) DAIA 9l,12,20.39,9A,C9,4F,F0,F7,C9,4E,FO.F3.C9,OD,OO,DO4A 
1295 (215) DATA Fl ,B1.12.29,7F.85.00,20.33,EC,A5.00,C9.4F,F0,21.0738 
1300 (2191 DATA A9.2A.BD.)3.02.A2.20,B5,40.90,00,05,BO.80.05.95,DCOO 
1305 (49) DATA 40,CA,D0.F3,20,03,BB,A2,20,BD,00,05,95.40,CA,D0.E44B 
1310 (49) DATA F8,A4,43,B9,80.04.99.00,04,88,D0,F7,A9,FF.BD.I3,EC9F 
1315 (133) DATA 02.20,03.SB,A2,09.AO,BE,80.45,84,40.A2.20.B5.40.F2A4 
1320 (57) DATA 9D.80.05,CA,D0,F8.A9,01.85,50.A9.00.85.40.A9.28.FA1C 
1325 (129) DATA 85,45,AD.FE,07,09,00,85,04,AD,FF,07,09,80,85.05,0070 
1330 (9) DATA 20.71,96,90,24,AO.03,84,4C.20,F8,8F,A4,4C,B1,02.0708 
1335 (89) DATA FO.17,30,l5.AA,20,0E.90,E4,4C,A5,4C,C9,18,FO.09,0DB9 
1340 (141) DATA A5.45.18,09.07.85,45.D0.EO.A9,C0.85,44,A5,44.4A.150C 
1345 (7) DATA IB,69,09,85,45,A5.54.85.59.20,53,90,20.39,96,C9.1AF2 
1350 (2071 DATA 20,D0,04,20,F1.90.4C.59,8F,C9,IB,FO.52,C9,08,D0.2284 
1355 (171) DATA 25,A5.59,C5,54,F0,E5,20,F0,91,A5,45.38,E5,41.85.2B03 
1300 (91) DATA 45,AS,53,C9,43,D0,05,C6,59,4C,59,8F,A5,59,20,50,3IE2 
1345 (1241 DATA 94,85,59,4C,59.BF.C9.09,D0,C2,A5.59,C5,55.FO,BC,3AB2 
1370 (117) DATA 20.F0.91,AS.45,18.05.41.85,45.A5.53,C9,43,D0,05.419E 
1375 (301 DATA E6,59,4C,59,8F,A5,59,20,44,96,85,59,4C,59,8F.20,4030 
1380 (48) DATA FO,91,20,CE,CC,AO,17,89,67,9C,99,8F,BF,80,DO,F7,5221 
1385 (91 DATA A9,BF,A2,A9,20.23,94.A9,4E,91.12.20,39,94,C9,4E,5940 
1390 (175) DATA F0,F7,C9,4F,FO,F3,C9,OD,OO,Fl,BI,12,29.7F.C9,4E.4348 
1395 (214) DATA FO,03,20,AE,91,4C,2E,8B,A4,45,A4,44,A9,00,85,49,49EB 
1400 (90) DATA 20,00,94,A9,03,BD,E5,02,20,C8,FO,40,A2,5E,AO,00,7097 
1405 (200) DATA 84.49,98.20.00.94,20.20,Fl,00.A2.5E,AO,00,84.49.70BB 
1410 100) DATA 98,20,00,94,CE,E5,02,20,20,Fl,60,AO,00,84,49,98,7D5F 
1415 172) DATA A2,E7,20,2I,94,60,A2,00,20,FC,BF,4C,2B,90,A6,00,841F 
1420 (1911 DATA A0.03.B1,O2,FO,O9,3O.O7,9D,48,BF,E8,C8,DO,F3,E8,0CC4 
1425 (1791 DATA 84.00.60,20,E9.91,20.CE.CC.20,0C,94,«2,00,84,00,92E8 
1430 (83) DATA A5,59.09,B0,AA.A5,53,C9.43,D0,32,B4,05,AD,FE,07,9A5C 
1435 (1811 DATA 09,BO,85,04,20,71,9A,9O,O3,2O,3E,9O,A5,54.F0,OC,A0O0 
1440 149) DATA 09,80,85,04,20,71,96,90,03,20,3E,90,A5,57,FC-,0C,A5BF 
1445 (871 DATA 09,80,85,04,20,71,94,90,03,20,3E,90,40,84,04,AD,AB10 
1450 (133) DATA FF,07,09,80,85,05,20,71,94,90.03,20,3E,90,A5,54,BOCC 
1455 (189) DATA FO,OC,09,80,85,05,20,71,94,90,03,20,3E,90,A5,57,B47F 
1400 (203) DATA FO,OC,09,80,85,05,20,71,96,90,03,20,3E,90,60,85,BC1B 
1445 179) DATA 00,84,01,A9,00,85.08,85.09,A2,08,04,00,20,09,A5.BFE8 
1470 1240) DATA 09.C5.01,90,00,38,E5.01,85,09,38.20,08,CA,D0.EB.C5E4 
1475 (149) DATA 40,2O,CE,CC,A0,0E.B9,8F,9C,99,BF,BF,88,DO,F7,A5,CF4B 
1480 (233) DATA 45.A4,40,85,4D,84,4E.A9.07.8D.13,02,A9,BF.A2.9E.0438 
1485 (102) DATA 20,23.94,A9,32,91,12,C8,A9,?0,91,12,88.20,39,96,DC3A 
1490 (207) DATA C9,3A,BO,F9,C9,32,B0,ED,C9,31,D0,0B,91,12,A9,30.E4CF 
1495 110) DATA C8,91,12,88,4C.1D,91,C9.0D,00,E2.B1,12,29,0F,C9.EC0B 
1500 (209) DATA 01,D0,02,A9,OA,48,A8,A9,AA,20.CF,90,48,85,00,A9,F2E4 
1505 (1141 DATA 00,85,01,A9,14,85,04,A4,04,20,34.90,A5,04.18,65,F764 
1510 (210) DATA 08,85,04,E6,01 ,A5,0I,C5,00,D0,EC,AO.BE,20.36.90,FE49 
1515 (22) DATA A4,51,A5,52.20,40,DF,20,D5,E0.A9,00,85,45,A9,OA,054F 
1520 (150) DATA 85,46,AO,01,84,4C,20,F8,8F,A4,4C,89,00,01,FO,10,0BFC 
1525 (245) DATA AA,20,0E,90,AS,45,18.69,06.85.45,A4,4C.C8,D0,E4,130B 
1530 (28) DATA A9.FF,8D,!3.02,AS,4D,A4.4E.85.45.84.46.60,A9,C0,1A96 
1535 (125) DATA 85,46,A5,44,4A, 18,69,09,85,45.A9,00,B5.59,A9,31 ,2049 
1540 (234) DATA 85,5A,20,F8,8F,A6,5A.20,0E,90,E4,5A,A5.5A,C9.3A,27CF 
1545 (146) DATA DO,04,A9,30.85,SA,AS.4S,18.65.41.85,4S,E6,59,AS,2EB1 
1550 1119) DATA 59,C5,43,90,DO,20,00,92.60,20,F8.8F,20,OC.90,60,3554 
1555 (220) DATA 20,F8,8F.20,IA,90,60,00,00,00,00,00,00,00.00,00,3825 
1560 (155) DATA 20,CE,CC,AO.18,B9,B5,9C,99,67,BF,B9.9D.9C.99,8F,4!7A 
1565 116) DATA BF,88,D0,F1,A9,BF,A2,82,20,23,96.A9,53,20,B3,93,4A49 
1570 (63) DATA 8E,80,92,A9,BF,A2,AA,20,23,96,A9,53,20,B3,93,BE,5266 
1575 (2461 DATA 81.92,A9,IB,20,Cl,F5,A9,40,20.C1,F5,AD,80.92.D0,5B61 
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1575 (246) DATA 01,92.AV,1B,20,C1,F5,A9,40,20,C1,F5,AD,80,92,DO,5861 
1580 (55) DATA 32.AO,OF,B9.CD.9C,99,B7,BF,88.DO,F7,A9.BF.A2,C5.6591 
1585 (169) DATA 20.23.96,20.10,97,A5,05.C9.01.DO.04.A9.00.FO,13,6B25 
1590 (210) DATA C9,2B,BO,F8,40,A9,I8,2O,CI,F5.A9,6C,2O,C1,F5,68,73F3 
1595 (99) DATA 20.C1,F5.Av.OA,20,C1,F5,A9,ÔD.20.Cl.F5,4C.82.92,7C3E 
1600 1144) DATA 00.00.09,00,85,00.89,80,85,01,89.19,85.06,20,00.8155. 
1605 (250) DATA 92,18,85,00,69,40,85,00,85,01,69,01,85,01 ,C6.06,8634 
1610 (153) DAT8 DO,EC,89,1B,20,C1,F5,89,32,20,C1,F5,60,89,00,B5,BEC9 
1615 (107) DAT8 78.89.IB,20,C1.F5.8D.80.92.DO.12.89.4B.20.C1.FS.9748 
1620 (49) DATA 89.F0.20.C1,F5,89,00.20,C1,F5.4C,DC,92,A9,4B,20.8004 
1625 (32) D8T8 Cl .FS.89,E0,20.Cl .FS.89,01.20.C1 ,F5,85,00.85.02.88C5 
1630 1)98) D8TA 85,01,85,03,89,00,85,07,85,02,85,04.85,03,85,05,AD8A 
1635 (141) D8T8 20,29,93,18,A5,02,69,01,85.02,90,02,E6.03,E6.07,B27E 
1640 (212) DATA A5,07,C9,28,DO,E2,A9,IB,20.C1,F5,89,41,20,C1,F5,B827 
1645 (244) DATA A9.08,20,Cl.F5.A9,OA.20,Cl,FS.AD,81,92,00,01,60.0328 
1650 (120) DATA E6.78,A5.7A,C9,02,D0,89,60,20,9B.93,AD,81.92.D0.CC09 
1655 (241) DATA 34,A9.08,85,08,AO,00,Bt,04X9,40,80,02.89.00,82,0106 
1660 1102) OATA 08,OA,36,60,CA,DO.FA.20,85,93X6,08,A5,08,DO,ES.D99A 
1665 (41) DATA A2,06,85,60,20X1,F5,AD,80,92,FO,05,B5,60,20X1 .E1D7 
1670 (50) DATA F5,CA,D0,EE,60,A5,7A,F0,0C,20,A5,93,20,85,93.20.EA9F 
1675 (175) DATA A5,93,20,A5,93,89,04.85,OB.80,00,BI,04,C9,40,B0,F177 
1680 (156) DATA 02,A9,00,A2,08.OA.08,36.60,28,36.60,CA,D0 ,F6,20,F4>E2 
1685 (60) DATA A5,93,C6.08,A5,08.DO,El,4C,50.93,82,10,89.00,95.FE65 
1690 (193) DATA 60X8,DO,FB,60,18,85,04,69.28.85,04.85,05,69,00.04A8 
1695 (81) DATA 85,05,60,91,12,20,39.96X9,53,FO,F7,C9,44,FO,F3.0D17 
1700 (74) DATA C9.0D.D0.F1,A2,00,B1,I2,29.7F.C9.44,DO,01.EB.60.14E1 
1705 (182) DATA 00,00,00.00.00.00,00,00,00.00,00,00,00,00.00.00.I4E1 
1710 (182) DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,I4EI 
1715 (182) DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,I4EI 
1720 (167) DATA BC,E3,02,8E.E1.02,8D.E2,02,85,49.8D.E4,02,80,00,1C35 
1725 (149) DATA 8C.EO.02,BC,E6,02,C8,8C,ES,02,60.20.00,94.4C,C8.237A 
1730 169) DATA FO.20,00,94,4C. 10,F1,20,00,94,4C,FD,FO,A6,45,A4,28E7 
1735 (121) DATA 46. A9.00, B5,49.4C, 1B. 94.86,44, AO, 00,84,49.98.4C. 30DA 
1740 (148) OATA 21.94,A2,FF,86,49,E8,8A.38.E5.4A,A8.88,4C,21.94.390B 
1745 (166) DATA A9,00,38.£5,44,A8.A9.FF.85.49,A9.00,A6,44,60,20.4046 
1750 (252) DATA 50,94,4C,21,94,20,50,94,4C,27,94,A9,00,38X5,44,4640 
1755 (140) DATA AA,A9,00.85,49,A9.FF,A4.44,4C,21,94,A9.01,85,48,4D69 
1760 (3) OATA 20,20,94,86,41,80,00,84,49,98,20,21,94.A4,48.B9.53B0 
1765 (150) DATA 00,06,85,4A,FO,12,20,42,94.AO,00,84,49,89,00,38,58CB 
1770 (208) DATA E5,41,AA,A9.FF,20,21,94,20,20,94,85,48,FO,03,20.5FFB 
1775 (118) DATA 42,94,20,5F,94,20,38,94,E6,48,A5,48X5,43,FO,02,66E5 
1780 (1441 DATA BO,5B.A4,4B,B9.00,06,85,4A,88,B9,00,06,85,4B,A5.6D26 
1785 (207) DATA 4A,C5,4B,FO,02,BO,23,20.38,94,20,6B,94,20,65,94,7369 
1790 (47) DATA A5,4A,C5,4B,FO,2D,A5.4B.38,E5,4A,85,47,A2,00,86.7AD0 
1795 (209) DATA 49,SA,A4,47,20.21,94,4C.13,95,A5,4A,38,E5,4B,85,8133 
1800 (50) DATA 47,C5,44,BOXE,AS,44,38,E5,47,AA,AO,00,84,49,98,883D 
1805 (152) DATA 20,21,94,A5,45.18,65.41,85,45,4C,80,94,20,38,94,8000 
1810 (230) DATA 20,6B,94.20,65,94,A4,48,88,B9,00.06,A8,A2,00.86.940B 
1815 (1801 DATA 49,SA,20,21,94,20,68,94,60,A9,01,85,48,A6,45,E8,9A7C 
1820 (208) DATA A4,46,A9.00.85,49,20.IB,94.A4.48,B9.00.06.85.4A,A026 
1825 (1271 DATA FO,03,20,42,94,A6,41,CA,CA,AO.00,84,49,98,20,21,A6D0 
1830 (215) DATA 94,A5.4A,F0,1A,A8.A2.00,86,49.8A,20,21,94,A9,00.AD7E 
1835 (89) DATA 38,E5,41,AA,E8,E8,A9,FF,AO,00,84.49,20,21,94,A5,B5E5 
1840 (120) DATA 45,18,65,41.85,45,E6,48,A5,48X5,43,90,AF,FO,AD,BDBI 
1845 (246) DATA 60,A9.01,85.48.AS.45.18.65.44,85,45,A4.48.AS,46.C3D4 
1850 (141) DATA 38,F9,00.06,85,46,20,2D.94.4C.E9,95.A4,48,B9,00XA26 
1855 (212) DATA 06,85,4A,88,B9.00,06,85,4B.C5,4A,FO,21,90,0C,A5,D073 
1860 (233) DATA 4B,38,E5,4A,A8,A9,00,85,49,F0,17,A5,4A,38,E5.4B,D7A2 
1865 (102) DATA 85,4A,A9,00,38,E5,4A,A8,A9.FF.85,49.D0.04,AO,00,DF13 
1870 (120) DATA 04,49X6,41 ,A9,00,20,21,94,20,FE,95,A5,45,18,65,E55F 
1875 (561 DATA 41,85,45,E6,48X5,40X5,43,90,B!,FO,AF,60X2,01 ,ED70 
1800 (226) DATA AO,01,A9,00,05,49,20,00,94,4C.7F.F3,AD.6A,02,29,F33C 
1885 (117) DATA FE,0D.6A,02X9,00,20,01,F8,60,AD,6A,02,09,01.8D.F905 
1890 (1781 DATA 6A,02,60,48,SA,48,20,OC,96.68,AA,68X0,00,86,12,FE5F 
1895 (1191 DATA 85,13,8C,69,02,20,IA,96,60X9,00.8D,DF,02,AD,DF,04CI 
1900 (132) DATA 02,FO,FB,29,7F,6O,AA.E8.EO,5B.DO,02,A2,61,8A,60,0D42 
1905 (44) DATA AA,CA,EO,60,DO,02X2,5A,BA,60XO,02,C8,B1,02.F0.15B8 
1910 141) DATA 02,10,F9,84,OA,60,98,18,65,02,85,02.90,02,E6,03,1ACD 
1915 (741 DATA 60X2,08,AO,00,FO,OA,AE.FD,07,AC,FC,07,C8,DO,01,226B 
1920 (2321 DATA £8,84,02,86,03,AO.FF.CB.Bl,02,DO,05,20,66,96,18,2985 
1925 (1181 DATA 60,10,F4,20,66,96X0,01X5,05,DI,02,FO,06,90,EF,309B 
1930 (234) DATA AO.02.DO,E3,88X5.04.DI,02,90,E4,DO.F3.38,60.20.38E0 
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1935 (93) DATA B6,D4.20,DS.EOXD,02,01,FO, 10.09.80X0,02,91,10,3FBB 
1940 (249) DATA 88.AD,01,01,09,80,91,10,30,OE.AO,01,A9.A0,91,10,44E5 
1945 (72) DATA C8.AD,01,01,09,80,91,10,60.A9,BBX2.80.85,11,86,4888 
1950 (219) DATA 10X0,00,AD,FE,07,09,80,91,10.AC,FF,07,20,AF,96,522B 
1955 (12) DATA AO.01.Bl,10X9.A0,DO.04X9,BO,91,10.60,06,05X5,5BD4 
1960 (24) DATA 05,OA,OA,18,65,05,18,65,06,85,05,DO,02,E6,05,60,5C99 
1965 (88) DATA AO,01,B1,12,29,0F,85,06,88,Bl,12,29,0F,85,05,20,60ED 
1970 (100) DATA 39,96,C9,OD.FO,3F.C9.09,D0,I1,AD,69,02,DO,FO,20,686C 
1975 (187) DATA OC,96,EE,69,02,20,IA,96,4C,1F,97,C9,08,D0,11.AD,6E98 
1980 (101) DATA é.9,02,F0,DB,20,OC,96.CE,69,02,20,1A,96,4C. 1F.97.749B 
1985 (47) DATA C9,30,90,CB,C9,3A,BO,C7,AC,69,02.91,12,29,0F,99,7BF4 
1990 (2081 DATA 05,00,4C,2A,97,20,FD,96,60,20,71,96.90,33X0,02,8X5 
1995 (81) DATA Bl,02,29,80,F0,2B,20,5A,96X4,0A,B1.02.48X9.00.B77E 
2000 (71) DATA 91,02X5,02,IB,69,02.85X9X5,03,69,00,85,EA,20,8D49 
2005 (183) DATA E2.00.20X7,DF,68X4,OA.91,02X9.00,80,FS,07,18,9404 
2010 (23) DATA 60,20,0B,DF,38,60,FF,FF,FF,FF.FF,FF,FF,FF,FF,FF,9FFC 
2015 (235) DATA FF,FF,FF,FF,FF,FF,FF,FF.FF.FF,FF,FF,FF,FF,FF,FF,AFEC 
2020 (II) DATA 00,00,00,00,00,00,00,00,00,00,00.00,00,00,00.00.AFEC 
2025 (111 DATA 00,00.00,00.00,00,00.00.00.00,00,00.00,00,00,00,AFEC 
2030 (II) DATA 00,00.00.00,00,00,00,00.00,00,00,00,00.00,00.00,AFEC 
2035 (69) DATA 00,00,52,4F,47,52,41,50,48,49,43,2E,41,53,53,00,B3A0 



fj/STMBSS* 


10 (166) A=I9COO:F=I9CFF:L=1000:REPEAI:FOR A=A TO A*15:READ Cl 
20 (2241 K'VALCI'-tCI) :S=S»R*65536I(S*K)65535) : IF A<=F THEN POKE A,K 
30 (145) NEXT: READ Dt : IF S=VAUT*DI) THEN L=U5:UNTIL A>F:END 
40 (79) PINGXRlNTXrreur ligneM 

1000 (75) DATA 4D.61,78,69,6D,75,60,43.6F,6C.6F.6E.6E,65.20,6F,063B 
1005 (1001 DATA 75,20,6C,69,67,6E,65,20,30,31,3A.63,6F,6C,6F,6E,0B85 
1010 (219) DATA 6E,65,20,41,20,40.20,42.20,52,7B,66,7B,72,65.6E. 1OBE 
1015 (1441 DATA 63.65.20,30,32,20.30,33.63,6F,6C,6F,6E.6E,65,20.1599 
1020 (230) DATA 41,3A,6C,69,67,6E,65,20,30,31,20,40,20,30,32,20,19A6 
1025 (1431 DATA 52,7B,66,7B,72.65.6E,63.65,20,41,20,42.4F,6E,20.1FO1 
1030 (170) DATA 65,66.66.61,63,65.20,3F,53,6F,72,74,69,65,20,73,24C3 
1035 (2) DATA 75,72,20,69,60,70,72,69,60.61,6E,74,65,20.3F,48,2AA7 
1040 (164) DATA 69,73.74,6F.2E,33,44,2F.32.44,2F,4C,69.67,6E.65.2FCE 
1045 (253) DATA 53,75,62.64.69,76,69,73,69,6F,6E,20,31,2F,48,61,3586 
1050 (139) DATA 75,74,65,75,72,20,64,6F,75,62,6C,65,20,6F,75.20.3B7A 
1055 (114) DATA 73,69,60,70,6C,65,4C,61,72,67.65,75,72,20,64,6F,41C9 
1060 (48) DATA 75.62,6C,65,20,6F,75,20,73,69,6D,70,6C.65,4D,61,47CD 
1065 (461 DATA 72.67.65,20.67,61,75.63,68,65.20.30,30.00.00.00.4C18 
1070 (201) DATA 00.00,00,00,00.00,00,00.00,00,00,00.00,00,00,00.4C18 
1075 12011 DATA 00,00,00.00,00,00.00,00,00,00,00.00.00.00,00,00.408 



DES DISQUETTES 
A PRIX RENTREE ! 



Disquettes 5" 1/4 avec la 
pochette vendues 
par lot de 10 5 q p 



Disquettes 3" 1/2 
conditionnées vendues 
par lot de 10 190 F 




Disquettes 3" avec la 
pochette cartonnée 
vendues par 
lot de 1 0 270 F 


BON DE COMMANDE 


Nom-Prénom_ 

Adresse_ 

Commande-Lot(s) de disquettes : _ 

Franco de port pour les lecteurs 

Chèque à l'ordre de BRETAGNE EDIT’PRESSE - La Haie de Pan - 

35170 BRUZ 

(Ecrire en capitales) 
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MOULINS MTCRO PERON 
90. ru* Regamortes 
03000 MOULINS 


LIBRAIRE PRIVAT 
14, ru* des Arts 
31000 ToJou» 


GUERUN-MAKT1N A RLS - U BR AJ RIE 
82 bace Drouet «fEricn BP 216 
51058 RBMS CEDEX 


L'OREILLE HARDIE 
Cente Comme»cul Intotmardré 
04000 DIGNE 


LA PUCE SAVANTE 
8. Bd de la Gare 
31500 TOULOUSE 


UBRAJR1E MCH AUD 

9. ru* du Cadran Sont Rare BP 360 

51062 RBMS CEDEX 


RJ AC ETOILE - Carre MCE Etoile 
30, avenue Jean Medean 
06000 MCE 

HLF1 DIFFUSION - Jeemco SARL 

19. ru* Tondut de fEscarèn* 

06000 MCE 


LIBRAIRE MOLLAT 
83 à 91. ru* Porte-Ojeaui 
33080 BORDEAUX 

FN.AC 

Cent* oommeraal Polygone 
33000 BORDEAUX 


LOGMCRO 
IA L«h« 

2 ev. de Leon 
51100 REIMS 


MIL 

27. rue Ambras* Paré 
53000 LAVAL 


LIBRAIRIE A LA S0R80MJE 

SNC. Seyrat 

23. ru* Hôtel des Postes 

42, ru* Godredo 

06000 MCE 


SON VIDEO 2000 

MICRO-AQUITAINE (El COCAS) 

31.Coosd*rVs«r 

33800 BORDEAUX 


BERGER VICTOR 
LA GRANDE UBRAJRIE 
13.15 ru* St Geages 
54000 NANCY 


GESCOTE 17 AZUR 
Rwdenoe les Hea*s Gares 
454. ru* des Vaoqueries 
06210 MANDEUEU 

UBRAJRE A LA SORBOMJE 
7. ru* des Beige* 

06400 CANNES 

PANORAMA DU UVRE 
LIBRAIRE DES ECOLES 
Cente Commaaai CAP 3000 
06702 ST LAURENT DU VAR 


MIC RO PO U S 

29. ru* Pâlot de Montabot 

10000 TROYES 


LIBRAIRE DE L'UMVERSfTE 
12 A. ru* Na/areti 
13100 AIX EN PROVENCE 

FNAC MARSEILLE 
Cent* Bouts* 

13231 MARSEILLE CEDEX 


INFORMATIQUE 2000 
place René Donc Le Triangle 
34000 MONTPELLIER 




MCROPUS 
15. Bd Gantois 
34000 MONTPELLIER 

LIBRAIRE SAU RAM PS 
Le Triangle 

Alée Jiies Mfriau BP 9551 
34045 MONTPELUER CEDEX 


FORUM DU LTVRE 
5. quai Lamartne 
35000 RENNES 

MICRO STORE 
3. place St Germain 
35000 RENNES 

LIBRAIRE DIALOGUES 
LOISIR A CULTURE 
rue de la Owéotan 
35000 RENNES 


LIBRAIRE FLAMMARION 
54. la Cannebére 
3. Marché des Capucins 

13231 MARSEILLE CEDEX 1 

MAU PEUT LIBRAIRIE 
U MYERS ALLEES 
144, LaCanebére 

13232 MARSEILLE CEDEX 01 

LA PUCE INFORMATIQUE 

42. rue du F oa Bou g-Neuf Vma Salon 

13300 SALON DE PROVENCE 

U BRAIRE ARMOIRES - JABALOT B. 

26. rue Sant-Yon 
17000 LA ROCHELLE 

1121 

21 ru* Abat 1er 
170» LA ROCHELLE 


GES CENTRE 

25. ru*Cd«e* 
18000 BOURGES 


LIBRAIRE DE L'UMVERSfTE 
17, ru* d* la Uberi* BP 1070 
21 CCS DUON CEDEX 

BERGERAC DIFFUSION PRESSE 
37, ru* d* la Resstanoe 
24100 BERGERAC 

CRUSSOL LIBRAIRE 
10 Bd Gai d* Gaule 
26000 VALENCE 

LIBRAIRE LEGUE - AU UVRE DDR 
10. ru* Noét Balay 
29000 CHARTRES 


MiCRO-C INFORMATIQUE 
3. Bd d* Beaumont 
35000 RENNES 

LGL W FO AMADOUE 
48. Bd delà Uberlé 
35000 RENNES 


VIDEO SERVICE MFORMADQUE 
GALLE 

9. piaoe du Préodent Coty 
37100 TOURS NORD 


LM 

Cent* Commerçai CATS 
37170CHAMBRAY LES TOURS 


LIBRAIRE ARTHAUD 

23. Grande rue BP 187 

38000 GRENOBLE 

LIBRAIRE HARU 

11, nie Sartf Jaoaj» 

38000 GRENOBLE 


LIBRAIRE VIDONNE 

134. rue de la Répubbque 

39400 MOREZ 


LIBRAIRE PS ET AN 

3, rue du Commaoe 

41000 BLOIS 


LIBRAIRE LAUXEROS 

40. rue Chariee de Gaule 

42300 ROANNE 



LIBRAIRE G OUGUEL 
TECHMQUE ET CLASSIQUE 
8. piaoe de la Boa» 

44000 NANTES 


U BR AIRE D. LESTER 
13. bs rue du Cygne BP 124 
28007 CHARTRES CEDEX 

K EM PER INFORMATIQUE 
72774, ev de la Ubéralon 
29000 OUIMPER 

CASTELA SA 
LA MAISON OU STYLO 

20. piaoe du Captoée 
31000 TOULOUSE 

FNAC TOULOUSE 
ÜBRAIRE DES CAPTTOULS 
1 bs, place Occitane 
31000 Taiou» 


MK) AON AU TE 

9. rue Urvoy de San! B«dan 
44000 NANTES 

LIBRAIRE LOOK 
AnderuesJ rfArc et Royale 
45000 ORLEANS^_ 

RK)HER LIBRAIRE 
6, rue Chaparonr»re 
49000 ANGERS 

DEPOT REGIONAL K UBRAJRIE 
FORUM 

C*n»e Carmw aé 
'le* KjéWm- aP 811 
49008 ANGERS CEDEX 


UBRA1R1E "A LA SORBONNE” 
F. SCHMITZBERGER et C« 

12 rue Si Di/*r BP 25 
54002 NANCY CEKX 


LA BOUOUINERE 
7. rue du Pat 
56100 L OR tNT 


CSE. 

Mchei LUTZ 
6. rue Claas 
57000 METZ 

MCRO BOUTIQUE - ECONOMAISON 
1-3. ru* P*J B*/ançan. 
piaoe d* la Cathédrale 
57000 METZ 

ELECTRONIC CENTER 
16. ru* Anoen Hôpital 
57100 THON VUE 


FURET DU NORO 
15. place d* Gaulle BP 255 
50002 LJLLE CEDEX 

MCROTEX-TAOUN 
22 place de la réçubfcque 
SOI 70 CROIX 

FURET DU NORD 
20.0ac* de la Réputéque 
59200 TOU ACOING 

FURET DU NORO 

21. rue du Ouesnoy 
50300 VALENCIENNES 

PAOTEC PHOME 
9. rue Si Jacques 
50500 DOUAI 

ANTENNES PRNGAULT 
39.la route de Fewrnes 
50600 MAU BEUGE 


FURET DU NORO - K ROME SA 
18 et 20. ev Jean Mabus* 

50600 MAU BEUGE 


FURET DU NORO 
ISBdBa* 

62300 LE 

LENS MICRO INFORMATIQUE 
96 et Alfred Meee 

rouie de L«otn 
62300 LENS 

MCROQC1EL 
Bernard Thomas 
2 place P Bonhomme 
62500 SI OMER 


GES NORD 
9. rue de f Alouette 
62600 ES TREECAXHY 

GIBERT JOSEPH U BRAIRE 
42 et dm Etab-Ums 
63000 CLERMONT FERRAND 

UBRAJRIE LES VOLCANS 

80 Bd G ergovt a 

63000 CLERMONT FERRAND 

NEYRAL 

3. Bd Deaai 

6300 0 CLERMONT FERRAND 

BASE 4 Lftnirie 

Enc GRENIER 
11, rue Samonret 
64000 PAU 


ARPAJOU-ORGAMSADON 

12 pUoe de la Cathédrale 

64100 BAYONNE 

SHOP PHOTO 

33. rue Commandant Mouchotte 

75014 PARS 

GES PYRENEES 

28. rue de Chasan 

64600 ANGLET 

FNAC FORUM 

1. rue Rare-lesoot 

75045 PARS CEDEX 01 

MCRO-PYRENEES 

41, rue du 4 septembre 

65000 TARBES 

U BR Al RIE EYROLLES 

61. Bd St German 

75240 PARS CEKX 05 

ORO-2000 

Thierry COLENO 

127. et. du Régnent de Bgorre 

65000 TARBES 

UBRAIRIE OUNOO 

30. ru* Sant SUpc* 

75278 PARS CEDEX 06 

CRI ZEN B AND 

31. Bd d* la Mam* 

76000 ROUEN 

UBRAIRIE LESTRMGANT 

123. ru* Gai L*d*rc 

76000 ROKN 

NFORMAT1QUE SERVICE 

66. ru» M»«ch» Toch 

66000 PERPIGNAN 

MK)RO CENTER 

Centre Conmaod 
place de* Haies 

67000 STRASBOURG 

BERGER LEVRAULT 

23 piaoe Brod* 

6706ISTRASBOURG CEDEX 

ETS THOMAS 

MICRO-J NFORMADQUE 

153. av d*la Repubàoj* 

78500 SARTROU VILLE 

UBRAIRIE DEIOCHE S A. 

21, ru* d* la RèpuCiqu* 

82000 MONTAUBAN 

UBRAJRIE HARTMAM4 Paul 

24. Gande rue 

ALSATIA UNION 

4. piaoe de la Réunion 

68051 MULHOUSE 

UBRAJRE G BISE Y 

35. piaoe de le Reown 

681X MULHOUSE 

UBRAJRE GAY 

4. place de La liber le 

83000 TOULON 

UBRAJRE AM8LAR0 

10-14. PatM Mabaon 

84000 AVIGNON 

RCELECTROMC 

Mr MARTIN Robert 

53. rue Vida 1A*o BP 12 

84100 ORANGE 

GES LYON 

6. rue de TAérie 

60001 LYON 

FIAMMARON UBRAJRE 

19. place Srfecou 

60002 LYON 

GIBERT J. UBRAJRE 

9. rue Gambetta 

86000 POITIERS 

UBRAJRIE CAMUGU 

6ru»d»l»Ch»i» 

60002 LYON 

MAJUSCULE POITOU 

3, bs rue de TEperoi 

86000 POITIERS 

UBRAJRIE KQTRE 

6. piaoe Beâecajr 

60002 LYON 

TOUT POUR LA RADIO 

66. Cours Lafayefie 

60003 LYON 

MK^GGESDONFOCH 

25. rue de S*» 

60006 LYON 

UBRAJRE 

DE L'UNIVERSfTE 

70. Rue Gambe* BP 109 

86003 POCTERS CEDEX 

UBRAJRE BARADAT 

8. piaoe St Rare 

87100 LIMOGES 

SGL 

25. raAe de Montarga 

80300 JOtGNY 

UBRAJRIE NFORMATIQUE 

MONTAIS 

8. rue Pré Benevu 

74300 ausES 

NIOCH AU -MARECHAL 

UBRAJRE DU LYCEE 

100. Gande-Rue 

91160 LONGJUMEAU 

LGV 

130. ru* de Corbd Viemosaon vOge 

91360 EPWAY SONGE 

QBE RT JEUNE 

15, bs Bd St Deras 

75006 PARS 

FNAC ETOILE 

26. avenue de Wagram 

75008 PARS 

MICRO PLUS "ELYSEES 26“ 

29. ev Champs Bysaee 

75008 PAR6 

fciCROPLUS 

Sté K BS ELECTROMCS 

64. rue de la Chaussée dAntn 

75009 PARS 

UBRAJRIE PARSIEWE 

K LA RADIO 

43. rue de DoAoque 

75490 PansCédee/10 

LOlSfTECH 

Cente Tameui 93 

93106 MONTREUIL 

O ROI PLUS 

7, piaoe Cameénat 

93600 AULNAY SOOS 

BERTHET A. SA 

UB. d» la Gond» Ru» 

105. Grand» Ru» Ch d» G*il» 

94130 NOGENT SMARNE 

OROMDua 

20. rue de Montreal 

94300 V1NCENNES 

V1SMO 

84. Bd B*aum»<baa 

75011 PARS 

LA0HERS.A 

175. av du Générai ledac 

94780 MASON-ALFORT 

CHOC ET COMPOSANTS 

ELECTRON QUE 

2. ru» Emào-CaMA» 

75012 PARS 

AVENA STE 

Square Cdomba 

BP 94 

95021 CERGY CEDEX 

GENERALE 

ELECTROMOUE SERVICES 

GES Perte 

68 et 76. av Ledru Rdin 

75012 PARS 

UBRAJRE 

POCHOTHEOUE 

LECUT Rare 

2 rue de Sbinarad 

96120 ERMONT 
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PETITES ANNONCES 


L 


' \lar 


a place réservée aux pclilcs annonces est limitée. En conséquence, 
celles-ci passent dans leur ordre d'arrivée. Par contre, les petites 
annonces farfelues sont systématiquement rejetées... De même, 
comme il est peu probable qu'il existe des "généreux donateurs" de maté¬ 
riels ou de logiciels, les petites annonces faisant appel à ces philantro- 
phes ne seront insérées que si la place libre le permet. 

Seront refusées toutes les annonces visant à vendre ou échanger des listes ou 
copies de logiciels non garantis "d'origine", ainsi que toute annonce incitant 
au piratage. 

En conséquence, réfléchissez bien avant d'envoyer vos textes. 

Les petites annonces doivent impérativement nous parvenir sur la grille (découpée ou 
photocopiée), le texte étant rédigé à raison d'un caractère par case. 

Enfin, toute annonce non accompagnée de timbres ne sera pas insérée. 


Vends Atmos + microdisk + moniteur 
mono + MCP40 + disk et K7 originaux 
+ doc. 2 700 F. Etat neuf. G Vadans, 27 
Vernon, 32.51.84.1 1.^^^^^^^^ 

techerche logiciels Jasmin 2 pour échanges. 
Contacter J.-L. Messiaen, 32, ruel. Bassat, 


Cherche tte documentation sur Mégabase 
d'Orpheus (Gestion base de données). Faire 
offre : V. Cauquil, 38 bis, rue des Brus. Tél. 
63.54.73.63. 


Cherche à acheter drive master, microdisc, 
sedoric, prix maxi 700 F (Paris et région pari¬ 
sienne uniquement). Tél. 48.74.55.23. 

Urgent I Vends Jasmin 2+6 disquettes 
+ nbreux jeux. 1 500 F à débattre. Tél. 
87.85.56.76 (demander Philippe) après 
18 h. 

Atmos + Jasmin cède les 1000 log. sur disk 
10 F/pièce liste s. demande. Ecr. à Saint- 
Hubert Antoine, 11, rue Ronde, 21800 
Quétigny. 


teur sur une télé sans prise péritel. 300 F 
(neuf). Tél. 39.87.17.61, après 18 h. 

Vends Oric Atmos 48 K (85) + 100 jeux 
+ Théorie + livres. 900 F. Vends magnéto. 
300 F. Tél. 61.51.13.94, Muret, H.G. 

Vends pour-Oric/Atmos, 90 logiciels environ 
700 F. synthé vocal 200 F, Théorie (12 au 
34) 4SÛ..F, 11 livres : jeux graphiques. Prix 
sur demande. Urgent ! Tél. 53.93.25.79, J. 
Christophe, en cas d’absence laisser nom et 
téléphone, rép. assurée, tout état neuf ! 

Affaire I Vends logiciels K7 Oric 40 F 
+ Théorie 1 à 13, 200 F, liste contre env. 
Orain Ph., 76, bd Victor-Hugo, 44600 St- 
Nazaire. 

Vends Oric Atmos + Jasmin 2 + jeux, K7, 
disk + revues Théorie + prise péritel + Télé 
Pal couleur, 3 000 F. Lecourt, tél. 
70.20.50.46, urgent. 

Vends 2 Atmos + moniteur CLR 
+ microdisc + magnéto + interf. joys. 
prog. bl + revues + prog utilit., bon état. 
Prix 4 500 F. M. Vannereau, tél. 
60.47.15.64. 


Vends Atmos + magnéto + 20 K7 
+ 100 logiciels + 35 Théories + 2 livres 
+ manuel. 2 000 F. Mari S., tél. 
93.71.05.22, Nice, après 19 h. 

Cherche docum. ou mode d'emploi pour 
monasm oriemon Hades achète Hades d'ori¬ 
gine. Macambou, 28, av. Audra, Colombes 
92700, sur K. 

Cherche poss. synthé vocal pour renseigne¬ 
ment (MS45), cherche aussi Ghost Gobbler, 
Damsel in distress. Tél. 39.74.7 6.33. 

Vends ou échange 350 progr. env. sur disk 
et K7. Cherche aussi MCP40 et interface 
joystick prog. Tél. 78.00.03.69. 

Vends Atmos + péritel + jeux Aigle d'or, 
Ultima zone, Saga + Théories + livre de 
jeux, 600 F + magnéto, 100 F. Tél. 
46.32.61.95, après 19 h 30. 

Vends TV n.b. (état neuf, 1986) 
+ modulateur NB/Oric. 800 F, dans la Marne 
si possible. Tél. 26.64.22.43, demander 
Stéphane. 

Possesseur de Microdisc, contacte-nous pour 
adhérer au club discoric ou pour recevoir le 
journal N°2. Tél. 26.64.22.43. 

Recherche images et musiques digitalisées 
ainsi que des prog. de création personnelle 
ou inédits. Tél. 26.64.22.43, ap. 19 h. 

Exclusif : le Club Discoric vend des calcula- 
tors à 420 F dans leur boîte d'origine non 
ouvertes. 10 à vendre. 26.64.22.43. 

Vends logiciels pour Atmos (Hobbit, Tom¬ 
beau, Diam Maud, Aigle, 1815, Delta, 
Def.for, Flight, Zor, Tria, Chess). 500 F. Tél. 
81.90.22.53. 


Cherche photocopies de notices de Forth, 
Business man, Millionnaire. Rezai, 139, cours 
Berriat, 38000 Grenoble. 

Vends Atmos + magnéto + 10 K7 
+ 2 manuels + 1 livre (Soracom) + Théorie 
+ int. joys. + modulateur, n.b. le tout à 
débattre. Tél. 87.62.73.73 (19-21 h). 

Vends Atmos + jasmin 2 + 7livres + câble 
Centronic + péritel, 2 000 F + port 
+ cadeau moniteur vert. Tél. 42.02.69.87, 
après 19 h. 

Achète Oric en panne : 200 F + frais de 
port. Olivier Aubel, 181, bd du Mal Juin, 
78200 Mantes-La-Jolie. 30.94.14.92. 

Vends Atmos magnéto monit. mono, 
16 Théo, 4 livres, cass. 2 000 F. Tél. 
91.72.01.69. 

Vends Jasmin 2 + logiciels tran + amplibus 
+ inter, progr. + nbrx livres. 2 500 F. Pier- 
ronnet, tél. 48.47.70.39, après 18 h. 
48.04.22.88 Ibur.). 

Vends Téléstrat moniteur couleur et souris. 
4500 F. 99.53.24.00. 

Vends Téléstrat, août 86 + ROM Oric 1 
+ manuel développeur. 3 500 F. Thomas 
Ledoux, tél. 45.87.09.44 (Paris). 

Echange progs Sedoric ou Téléstrat 
+ Stratoric. Eudes J.-F., 7, Clos de la Deli- 
nière, 45450 Fay-aux-Loges, tél. 
38.59.26.54. 

Achète ou échange loritel. Frédéric Goncal- 
ves, 1234, rue de Paris, Ecrouves, 54200 
Toul. Tél. 83.43.13.94. 

Vends adaptateur pour brancher un ordina¬ 


Vends Microric 1 à 5. 30 F. Vends K7 origi¬ 
nales Atmos/Oric, liste contre env. timbrée. 
Bachelier, 12, rue Houchard, 57600 
FORBACH. 

Vends extension RAM 64K pour Téléstrat. 
400 F. Tél. 50.71.50.43, demander Nicoaux 
heures de repas. 

Atmos échange jeux sur Jasmin. Caja L., rte 
d'Empeaux, 32600 L'Isle-Jourdain. 

Vends Atmos + Jasmin 2 + moniteur cou¬ 
leur + livres + divers logiciels dont Easy- 
text. Cale, Multifich. 2 500 F. Tél. 16.1 
69.28.27.19. 

Vends Atmos + péritel + logiciels (jeux, lan¬ 
gages) + revues Théorie. Le tout 500 F. Tél. 
46.45.03.11 (Vanves). 

Vends Atmos + 150 progs + interfaces 
+ divers. 1 000 F ou échange contre micro 
de poche can. X07, FX702, etc. Patrick, 
56.98.03.15, soir. 

Cherche notice LMPIus d'Isosoft, cherche 
contacts Atmos. K7 pour échange trucs, logi¬ 
ciels. Peirache, 5, bd P. Semard 06300 Nice. 

Vends Jasmin 2 + Atmos + 6 livres Oric 
+ revue + 10 dk avec nb. Igm + 10 K7 
jeux + interface minitel + 80 FT + pgm r. 
amateur. Witko Joël. Tél. 46.72.33.58, prix 
2 000 F (le soir). 

Cède Oricl + 10 Jeux + 10 Théorie 
+ livres et EXL 100 (neuf) + 5 cart. (tennis, 
imagix,...) + magnéto + cables, t. b. ét. 
2 000 F. Tél. 90.73.06.83. 

Vends Téléstrat + Stratoric + 20 disk. 
2 000 F. Tél. 40.83.63.10. M. Ravain Phi¬ 
lippe, 359 rue de Bellevue, 44521 Oudon. 
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Vends Apple IIE + lecteur disp. + carte 80 
col. + moniteur + profile 10 mo 
+ imprimante imagewriter. Tél. 
41.70.43.40. 

Vends MCP40, état neuf, 600 F. Recherche 
"Tie-Break" & "Formule 1". Pascal Leclerc, 
1 39.83.73.51. 25, rue Tranchebise, 95170 
Deuil. 

Recherche progs utilitaires pour Atmos (Mul- 
ticalc, Origraph, etc.). Gabas J.-F., 104, rte 
de Pau, 65000 Tarbes. 



Recherche livre assembleur de l'Oric PSI. Tél. 
1 60.79.38.82, Messiaen J.-L., 32, rue 
Laurent-Bassat, 91080 Courcouronnes. 

Vends Oric-1 + lecteur de K7 avec cordon 
+ prise péritel + 50 jeux + joystick avec 
adapteur. 1 200 F. Téléphone : 
31.92.04.64. 

VDS Atmos, 700 F, interface, joystick prog. 
200 F, 10 K7 d'orig., 400 F (Forth, Basic 
+ livre. Xénon 1 et 3, Aigle d'or). T. 
23.71.23.25, après 17 h. 


Vends pour O/A K7, Macadam Bumper, 
Triathlon, Karaté, Master Paint, Hades, Super 
Jeep, Tyrann. 70 F pièce à débattre. Tél. 
29.80.92.44. 

Vends Vortex 1815 Formule 1, tortue, logic. 
80 F 11), Tour du m. 80 j., Durendal, 60 F 
11), Microric 1 à 9, 200 F, nbx livres. Tél. 
23.70.31.55. 

Henriat, 5, rue G. Moquet, 91390 Morsang, 
recherche logiciels Atmos sur Jasmin2 en 
3 p. ou 5 pouces 1/4. Ma liste contre env. 
+ tim. 

Vends logiciels Oric, revues Théorie, 10 F 
pièce, livres, liste sur demande. Launay, 6, 
rue Rochettes, 61100 Fiers, tél. 
33.65.43.27. 

AV Atmos + Jasmin + FTDOS 
+ programmes et livres (Oric à nu, etc.). Px 
2 000 F. Tél. 57.42.17.23, après 20 h. 

Ech. Jasm.2 ou DTL2000 contre PB700. 
Vends DTL2000, 1 000 F et Jasm.2, 
1 500 F. Demander Bertrand, tél. 
63.04.38.29. 

Vends Atmos + magnéto Oric + Théorie 1 
à 19 + 29 + 33 + 12 logiciels d'origine 
+ péritel + câbles + manuel + K7 demo. 
990 F. Tél. 16.1 64.95.51.85. 

Cherche progs Rtty 11 bds + packet radio. 
Bourrier Christophe, Poste d'Ormes, 51370 
St-Brice-Courcelles. Tél. 26.08.19.51, à 
19 h. 

Vends Interface série pour Oric 1 /Atmos (con¬ 
nexion modem, imprimante, matériel OM.) 
parfait état. Joindre le 1 30.43.01.06. 

Vends pour Atmos Karaté-m + Obric, 30 F, 
propre réalisation. Soufi, tél. 78.70.47.38, 
de 17 h à 20 h, 69200 Venissieux. 

Vends imp. GP 100, 1 000 F, ampli-bus, 
200 F, Easidisk, 80 F, autres progs. Malegol 
Claude, Rés. Le Corrot, rue Bottolier, 27000 
Evreux. 

Recherche logiciel action-bourse permettant 
la gestion d'un portefeuille d'actions avec 
Atmos + lecteur Jasmin. Tél. (1) 
45.41.07.12, après 20 h. 

Auteur vend à bas prix jeu d'aventure (gra¬ 
phismes superbes). Safar K, 5 rue du Pré- 
Feray, 27930 Arnières s/iton. Tel. 
32.39.28.03. 

Possesseur de drive Jasmin2 recherche con¬ 
tact sur Chambéry. Collet Matrat Xavier, 


408, rue Marcoz 73000 Chambéry. 

Vends Atmos + Jasmin 2 + magnéto 
+ 10 cassettes + 3 disquettes + 2 livres 
+ 13 Théorie, le tout 3 000 F. Tél. 
48.81.70.40. 

Achète Jasmin2, ch. notice Diamant Keops, 
Jasmin Multifich, Easydisk. Vds orig. Forth, 
Xenonl, Xenon3, Aigle d’or. 23.71.23.25, 
ap. 17 h. 

Vends Atmos + cordons + magnéto 
+ 2 livres initiation + 100 jeux + nb. 
revues + 3 mois à Club. 1 590 F. Parayre P., 
5, rue J. Bart, 81000 Albi. 

Vends Oric-Atmos 48 K + moniteur couleur 
+ magnéto + logiciels + revues, documen¬ 
tation... 1 500 F. Tél. 45.84.07.35. 

VDS T08 Thomson + lect. dise, état neuf 
+ simulateur vol + revues, prix 2 000 F. 
Tél. 22.51.93.53, h. r. 

Vends telestrat, 86, t. b. ét. + 5 disq. 
3 000 F et Stratoric + 5 disq. + logs origi¬ 
naux, 350 F ou le tout 3 200 F. Tél. 
64.57.05.35. 

Vends telestrat (10/86) 3 000 F, ROM Oric-1 
et Atmos (200 F), Nibble Sedoric (150 F). 
Quatrevaux Nicolas. Tél. 31.74.57.64 
(Caen) 

Vends Atmos complet, 500 F, moniteur 
mono, 650 F, Oric à nu + 12 Théories, 
200 F. Tél. 61.89.17.73 (dépt 31) soir. 


Cède 1000 logiciels Jasmin S/D7 15 F/pièce 
(cause vends Atmos). Liste s/demande : 
SAINT-HUBERT Antoine - 11 rue Ron¬ 
de - 21800 Quetigny 


Vends Atmos 48K + alim + péritel + jas¬ 
min + FTDOS + disquette : 2000 F - 
Laurent. Tél. 42.28.59.76. 


Oric 1 cherche contacts K7 région Lille - RX- 
TG. Echange logiciels - tuyaux - VAN 
WAMBEKE - 5 AE Watteau - 59510 Hem. 
Tél. 20.83.68.36. 


Vends interface joystick programmable pro¬ 
tek pour Oric + Atmos + péritel + jeux + 
alimentation. Le tout 600 F - M. KUNTZ. 
Tél. 39.87.17.61. 


Vends MCP 40 + 4 rouleaux papier + 4 
stylos + doc en anglais. Valeur : 1175 F 
vendu 800 F. Tél. 48.21.90.14. (Paris) 
après 18 H. 


Vends Atmos alim + péritel magnét. laser 
data + manuel "pratique de l'oric Atmos" 
nbx programmes K7 : 1000 F. 

Tél. (11.43.24. 32. 99. le soir. 


Vends lecteur microdisc B, C, D sans alim. 
Prix à débattre. Tél. 20.85.01.54. 


Annoncez-vous ! 


Vous pouvez passer directement 
vos annonces sur le minitel. 

36-15 
Tapez MHZ 
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L'auteur est un fervent passionné 
d'ORIC. Il a décortiqué avec soin les 
mécanismes des routines internes 
de l'ORIC-1 et de l'ATMOS. D’un 
contenu très dense, tout en restant 
à la portée des débutants, ces 
deux ouvrages proposent tour à 
tour des commentaires abondants 
sur le système interne, des exerci¬ 
ces et des programmes utilitaires 
mettant en application les principes 
acquis. 

Les prix publics de ces 2 tomes 
sont respectivement de 138 F et 
120 F. Nous sommes en mesure 
de vous les offrir à 99 F pièce 
ou,mieux, pour 149 F les 2 ! Une 
inestimable économie... 
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Deux livres indispensables pour mieux utili¬ 
ser les routines internes de l'ORIC-1 ou de 
l'ATMOS. 
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